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CHAPTER  1.   INTRODUCTION 

1 . 1  Background  and  Scope  of  Thesis 

During  the  last  few  years,  a  number  of  relatively 
effective  artificial  intelligence  (AI )  programs  have  been 
written   incorporating  considerable  amounts  of  knowledge. 
Consequently,  the  problem  of  encoding  such  knowledge  in  a 
useful  form  has  emerged  as  one  of  the  central  problems  of  AI . 
Winograd  [48]  distinguishes  between  declarative    information 
which  can  be  thought  of  as  "knowing  what",  and  procedural 
information   which  can  be  thought  of  as  "knowing  how". 
He  describes  the  underlying  problem  as  that  of  constructing 
representations  which  can  take  advantage  of  the  decompos- 
ability  of  the  declarative  form  without  sacrificing   the 
interactive  possibilities  of  the  procedural  form.   Ideally, 
it  should  be  possible  to  specify  information  in  a  form 
which  does   not  constrain  the  way  in  which  it  is  to  be  used. 
Unfortunately,  a  straightforward  implementation  of  such  a 
declarative  representation  corresponds  to  a   nondeterministic 
program  which  makes  a  relatively  blind  search  through  the 
solution  space. 

More  recently,  attention  has  turned  towards  mechanisms 
which  facilitate  incorporating  limited  procedural  or  heuristic 
information  into  a  primarily  declarative  framework.  Examples 


include  Sickel's  Clause  Interconnectivity  Graphs  [39]  in  a 
resolution  theorem-proving  framework.  Robot  Plans  in  the 
STRIPS  problem-solving  system  [14],  and  procedural  deduc- 
tions in  semantic  networks  [10].   In  [36],  Rychener  discusses 
the  approach   of  building  a  rational  "goal"  structure  into 
declarative  rule-based  (production)  systems,  while  Davis  [9] 
favors  a  separate  set  of  "meta-rules"  specifying  control 
information  in  a  hierarchical  fashion.   In  some  cases   we 
might  expect  that  the  amount  of  procedural  information  is  of 
the  same  order  of  magnitude  as  the  amount  of  declarative 
information,  and  so  such  approaches  may  be  effective.  However, 
in  most  cases   the  amount  of  control  information  will  be  very 
large  (such  as   theorem-proving,   natural  language 
understanding,  vision) .    Thus  the   problem  of  acquiring, 
debugging  and  extending  control  information  will  become 
increasingly  important. 

In  general,  we  might  expect  that  this  control  informa- 
tion will  embody  very  sophisticated  principles  requiring 
data  structures   not  present  in  the  declarative  form  of  the 
program,  or  which  are  deducible  only  by  the  use  of  consider- 
able intelligence.   For  example,  it  is  clear  that  the 
deduction  of  the  heuristic  principles  of  evaluation  and 
a-3  search  from  a  declarative  chess  program  which  specifies 
only  the  rules  of  chess  without  any  strategies  for  playing 
will  require  an  analysis  which  is  considerably  beyond  the 
ability  of  present   techniques;  even  the  optimization  of  the 
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parameters  in  a  linear  evaluation  function  involves  highly- 
sophisticated  processing. 

However,  it  is  the  contention  of  this  thesis   that 
there  are  a  number  of  important  areas  in  which  it  might  be 
possible  to  deduce   control  information  automatically  from 
a  declarative  program.   These  include  declaratively  speci- 
fied problems: 

for  which  there  exists  a  relatively   simple  algorithmic 
procedure 

whose  performance  can  be  improved  in  frequently  occur- 
ring or  particularly  important  special  cases 
in  which  particular  subproblems  can  be  solved  by 
simple  algorithmic  procedures. 
In  this  thesis,  we  will  investigate  a  technique  for  improving 
the  performance  of  a   nondeterministic  program  which  is 
based  on  an  analysis  of  the  behavior  of  the  program  on 
sample  inputs. 

The  following  section  presents  a  sample  problem  used 
throughout  this  document  to  demonstrate  the  proposed 
techniques.   In  Section  1.3,  the  approach  we  take  to  this 
problem  is  outlined  in  detail  along  with  the  technical 
problems  involved  in  the  actual  analysis.   The  final  section 
of  this  chapter   presents  a  history  of  the  research  related 
to  this  problem  and  which  supports  the  approach  we  use. 
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1 . 2  A  Sample  Problem;   Jigsaw  Puzzles    ■     ' ' 

As  an  example,  consider  the  following  problem.  Suppose 
we  want  to  solve  a  (slightly  idealized)  jigsaw  puzzle  in 
which  each  piece  has  an  average  color  and  four  sides 
described  by  unique  integers  (with  side  i  fitting  side  -i) . 
We  consider  below  a  nondeterministic  algorithm  written 
in  Production    System    (PS)  form  [8,32,37]. 

A  PS  is  a  (nondeterministic)  program  consisting  of  a 
set  of  productions    or  rules,    called  Production    Memory 
together  with  a  data  base  of  assertions,  called  the 
Working   Memory     (WM)  set.   Each  rule  consists  of  a  conjunc- 
tion of  patterns  of  data  elements,  called  the  Left-hand   Side 
(LHS)  and  a  series  of  actions  called  the  Right-hand      Side 
(RHS) .   The  RHS  specifies  information  that  is  to  be 
deposited  in  or  removed  from  the  WM.   Execution  of  the 
program  consists  of  iterating  the  following  sequence  of 
actions  (each  iteration  is  called  a  cycle)  : 

(1)  for  each  rule,  determine  if  its  LHS  matches  the  current 
environment  in  WM   (multiple  instantiations  are  possible) 

(2)  from  the  set  of  rules  satisfying  step  (1),  called  the 
Conflict   Set    (CS),  nondeterministically  select  one. 

(3)  fire    the  rule  selected  in  step  (2),  that  is,  apply 
the  actions  specified  in  the  RHS. 

In  the  exact  form  of  the  PS  representation  we  use, 
data  elements  can  be  any  LISP  data  structure.  An  atomic 
data  element  in  the  LHS  of  a  production  must  match  an  exact 
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data  element  in  WM    and  a  list  must  match  a  list  with  the 
same  structure  and  content.   A  symbol  preceded  with  an 
equals  sign  (=)  represents  a  variable  which  can  match  any 
data  structure.   The  $  symbol  contained  in  the  productions 
has  the  same  function  as  the  SN0B0L4  immediate  assignment 
operator.   When  a  rule  is  fired,  the  matching  data  elements 
are  not  deleted  from  WM   unless  they  are  included  as  argu- 
ments to  the  <delete>  system  function  in  the  RHS  of  the  rule, 
The  other  system  functions  are  represented  in  lower  case  and 
enclosed  in  pointed  brackets  (<  >) .   Their  function  is 
described  by  their  names.   The  operator  -  in  the  LHS  has 
the  same  function  as  <not> .   The  symbol  !  is  an   operator 
which  matches  the  entire  remaining  portion  of  the  list  that 
contains  it.   Where  it  appears  in  the  RHS   it  deposits  the 
list  that  matched  it  but  without  the  enclosing  parentheses. 
The  complete  program  is  given  in  the  following  sections. 
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1.2.1   A  Jigsaw  Puzzle  Production  System 

The  representation  we  have  chosen  models  the  puzzle- 
solver  as  having  an  eye  with  which  to  focus  on  a  single 
object,  a  hand  with  which  to  grasp  an  object  and  a  limited 
memory  which  can  remember  a  single  object,  a  single  pile, 
and  a  particular  color  at  any  one  time.   The  puzzle  is 
presented  to  the  puzzle-solver  as  a  heap  (or  unordered  set) 
of  puzzle  pieces.   The  productions  allow  for  the  piling  of 
objects,  and  through  the  functions  of  the  eye,   hand  and 
memory,  the  systematic  scanning  of  an  ordered  pile  of  puzzle 
pieces.   Various  sensing  productions  (those  without  actions 
in  the  RHS)  indicate  a  variety  of  conditions  of  WM  as  is 
outlined  below. 

Working  Memory  Data  Elements : 

(PIECE  p  c)   represents  a  puzzle  piece  where  p  is  a  unique 
integer  associated  with  a  piece  and  c  is  its  average  color. 
We  will  assume  the  machine  knows  at  any  time  where  piece  p 
is  located  and  so  we  ignore  location  in  the  representation. 

(s  p  n  c)   represents  the  side  of  a  puzzle  piece.   s  is 
either  L,  R,  T  or  B,  representing  the  left,  right,  top  and 
bottom,  respectively,  of  piece  p.   Since  location  is  ignored, 
rotation  of  a  piece  in  space  is  also  ignored.   n  is  an 
integer  representing  the  shape  of  the  side  where  +n  mates 
with   -n  and  0  represents  a  straight  edge,  c  is  the  color 
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of  the  edge.  The  representation  could  easily  be  extended 
to  represent  a  vector  of  colors  for  a  series  of  points  on 
the  edge. 

(NUMBER-OF-PIECES  n)   states  that  n  is  the  total  number  of 
puzzle  pieces . 

(NUMBER- IN-HEAP  n)   states  that  n  is  the  total  number  of 
pieces  in  the  heap. 

(IN-PUZZLE  (PIECE  p  c) )   states  that  piece  p  is  in  the 
puzzle . 

(NUMBER-IN-PUZZLE  n)   states  that  n  is  the  total  number  of 
pieces  in  the  puzzle, 

(JOINED  (side,  side„)  (side^  side.)  ...)   represents  the 
sequence  of  sides  that  were  joined  in  forming  the  puzzle. 
The  symbol  side.   is  of  the  form  (s  p  n  c)  above. 

(BEING-PUT-IN-PUZZLE  x)   represents  the  current  piece  x  that 
is  actively  being  placed  in  the  puzzle. 

(IN-HEAP  (PIECE  p  c) )  represents  puzzle  piece  p  as  being 
in  a  heap  with  no  implicit  ordering  of  edges. 

(LOOKING-AT  x)   states  that  object  x  is  in  view.  If  nothing 
is  in  view,  then  (LOOKING-AT  NOTHING)  is  in  WM. 

(HOLDING  x)   states  that  x  is  the  current  object  being  held. 

If  the  hand  is  empty,  (HOLDING  NOTHING)  is  in  WM. 

(CURRENT-COLOR  c)  represents  the  current  color  being  considered, 
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Production  Memory: 

LOOK-AT-PIECE-IN-HEAP: 

If  a  piece  is  in  the  heap,  then  you  can  look  at-  it. 

[  (LOOKING-AT  =anything)  $  =cl 

(IN-HEAP  (PIECE  =p  =c)  S  =object) 
-(LOOKING-AT  =object) 

— > 

(<delete>  =cl) 
(LOOKING-AT  =object)] 

LOOK-AT-OBJECT-IN-HAND: 

If  something  is  in  your  hand,  then  you  can  look  at  it. 

((LOOKING-AT  =something)  $  =cl 

(HOLDING  =object  $  (<not>  NOTHING)) 
-(HOLDING  =something) 

—  > 

(<delete>  =cl) 
(LOOKING-AT  =object)] 

CLOSE-EYES: 

If  you  are  looking  at  something  which  is  not  NOTHING,  then  you  can 

look  away  from  it. 

[{LOOKING-AT  =something)  $  =cl 
-(LOOKING-AT  NOTHING) 

—  > 

(<delete>  =cl) 
(LOOKING-AT  NOTHING)) 

OBJECT-IN-HAND-IN-VIEW : 

This  production  senses  when  the  object  being  held  is  in  view  without 

performing  any  actions. 

[  (HOLDING  =object) 

(LOOKING-AT  =object) 
-(LOOKING-AT  NOTHING) 

—  > 

] 

PICK-UP-OBJECT-IN-VIEW: 

If  you  are  looking  at  an  object  and  holding  NOTHING,  then  you  can  pick 

up  the  object.   Its  position  changes  to  being  in  your  hand. 

[ (HOLDING  NOTHING)  $  =cl 
(LOOKING-AT  =object) 
(IN-HEAP  =object)  $  =c3 
(NUMBER-IN-HEAP  =numb)  $  =c4 

—  > 

(<delete>  =cl  =c3  =c4) 
(<NUMBER-IN-HEAP  (<subl>  =numb) ) 
(LOOKING-AT  =object) 
(HOLDING  =object) ] 
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PUT-PI ECE-DOWN-IN-HEAP: 

If  you  are  holding  a  puzzle  piece,  you  can  put  it  in  the  heap  and  your 

hand  is  empty.   Notice  that  the  piece  continues  to  be  in  view. 

[(HOLDING  (PIECE  =p  =c))  $  =cl 
(LOOKING-AT  =object) 
(NUMBER-IN-HEAP  =numb)  5  =c3 

—  > 

(<delete>  =cl  =c3) 
(LOOKING-AT  =object) 
(HOLDING  NOTHING) 
(NUMBER-IN-HEAP  (<addl>  =numb) ) 
(IN-HEAP  (PIECE  =p  =c))] 

FIND-COLOR-OF-PIECE: 

If  you  are  holding  a  puzzle  piece,  you  can  look  at  it  and  know  its 

color  . 

[(LOOKING-AT  (PIECE  =p  =c)) 
(CURRENT-COLOR  =anything)  $  =c2 

—  > 

(<delete>  =c2) 
(CURRENT-COLOR  =c) ) 

FORGET-COLOR-OF-PIECE: 

If  a  piece  is  in  view  and  you  know  its  color,  you  can  look  away  from  it 

and  forget  its  color. 

[(LOOKING-AT  (PIECE  =p  =c))  $  =cl 
(CURRENT-COLOR  =c)  $  =c2 

—  > 

(<delete>  =cl  =c2) 
(LOOKING-AT  NOTHING) 
(CURRENT-COLOR  NOTHING)] 

PIECE-HAS-STRAIGHT-EDGE : 

This  production  senses  when  the  piece  in  view  has  a  straight  edge. 

[(LOOKING-AT  (PIECE  =p  =c) ) 
(=any  =p  0  =c) 

—  > 

] 

PIECE-HAS-CURRENT-COLOR: 

This  senses  when  the  object  in  view  has  the  current  color  you  are 

considering. 

[(LOOKING-AT  (PIECE  =p  =c)) 
(CURRENT-COLOR  =c) 

—  > 

] 
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EMPTY-HEAP: 

This  senses  if  the  heap  is  empty. 

[-(IN-HEAP  =anything) 

(NOMBER-IN-HEAP  0)  $  =c2 

—  > 

(<delete>  =c2)] 

START-PUZZLE: 

If  there  is  no  puzzle'  currently  being  built  and  you  are  holding  a 

piece,  then  you  can  make  this  piece  the  first  part  of  the  puzzle,  leaving 

your  hand  empty.   Notice  that  you  continue  to  look  at  the  piece. 

[-(IN-PUZZLE  =anything) 
(HOLDING  {PIECE  =p  =c)  §  =object)  $  =c2 
(LOOKING-AT  =object) 

— > (JOINED  ) 

(<delete>  =cl  =c2) 
(HOLDING  NOTHING) 
(IN-PUZZLE  =object) 
(LOOKING-AT  =object) 
(NUMBER-IN-PUZZLE  1)] 

PIECE-FITS-IN-PUZZLE: 

This  production  senses  when  a  puzzle  piece  that  is  in  view  will  fit 

another  puzzle  piece  already  in  the  puzzle. 

((LOOKING-AT  (PIECE  =p  =c)  $  =object) 
-(IN-PUZZLE  =object) 

(IN-PUZZLE  (PIECE  =p2  =otherc)  $  =otherp) 

(=any  =p  =n  =anyc) 

(=another  =p2  (<negative>  =n)  =k) 

—  >   ] 

FIT-PI ECE-IN-PUZZLE: 

If  the  piece  being  held  and  in  view  fits  in  the  puzzle,  the  sides  of 

the  matching  pieces  can  be  joined. 

[(HOLDING  (PIECE  =p  =c)  $  =object) 
-(IN-PUZZLE  =object) 
(LOOKING-AT  =object) 

(IN-PUZZLE  (PIECE  =p2  =otherc)  $  =otherp) 
(<forall>  (=any  =p  =n  =c)  $  =c4 

(=another  =p2  (<negative>  =n)  =k)  $  =c5  )         " 
(JOINED  !  =rest)  $  =c6 

— > 

(<delete>  (<all>  =c4  =c5)  =c6) 
(BEING-PUT-IN-PUZZLE  =object) 
(LOOKING-AT  =object) 
(JOINED  !  =rest  (<all>  =c4  =c5))] 
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PIECE-PUT-IN-PUZZLE: 

If  you  are  holding  a  puzzle  piece,  which  is  currently  being  placed  in 
the  puzzle,  you  can  put  it  down  in  the  puzzle. 

[(HOLDING  (PIECE  =p  =c)  S  =object)  $  =cl 

(NUMBER-IN-PUZZLE  =m)  $  =c2 
-(IN-PUZZLE  =object) 

(BEING-PUT-IN-PUZZLE  =object)  $  =c4 

—  > 

(<delete>  =cl  =c2  =c4) 
(HOLDING  NOTHING) 
(LOOKING-AT  NOTHING) 
(IN-PUZZLE  =object) 
(NUMBER-IN-PUZZLE  (<addl>  =m)  )  ] 

PUZZLE-IS-F INI SHED: 

If  all  of  the  pieces  are  in  the  puzzle,  you  can  stop. 

[(NUMBER-IN-PUZZLE  =n) 
(NUMBER-OF-PIECES  =n) 
-(IN-HEAP  =anything) 

—  > 

(<halt>) ] 
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It  should  be  noted  that  this  representation  is  highly 
nondeterministic  and  if  executed  would  be  impossibly  ineffi- 
cient (even  in  the  presence  of  any  "syntactically-oriented" 
selection  rules  [30],  as  nearly  10  years  of  resolution 
theorem-proving  refinement  research  demonstrates).  It  does 
not  even  "know"  that  it  will  find  a  solution  (i.e.  terminate) 
if  it  can  repeat   the  production  FIT-PIECE-IN-PUZZLE  as 
frequently  as  possible,  so  even  the  crudest  goal-subgoal 
structure  is  absent.   (However,  there  is  no  production   to 
remove  a  piece  from  the  puzzle,  which  could  serve  as  a 
clue  to  an  intelligent  observer.)   It  is  even  possible 
for  the  program  to  pick  up  a  piece  and  then  put  it  down 
immediately  without  doing  anything  with  it. 

The  performance  of  this  program  could  be  improved  to 
a  tolerable  level  if  the  following  very  simple  heuristic 
were  added: 

use  the  following  sequence   repeatedly: 

-  pick  up  a  piece  from   the  heap; 

-  insert  it  in  the  puzzle  if  it   fits; 

-  if  not,  put  it  back  in  the  heap. 
An  alternative  heuristic  would  be: 

use  the  following  sequence  repeatedly: 

-  pick  a  piece  p  in  the  puzzle  with  a  missing   neighbor; 

-  pick  a  piece  from  the  heap; 

-  if  it  matches  a   side  of  p,  insert  it  in  the  puzzle; 

-  if  not,  place  it  back  in  the  heap. 
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Each  of  these  heuristics  is  very  simple,  consisting  mainly 
of  sequencing  rules  for  the  productions,  and  would  seem  to 
be  within  the  range  of  automatic  inference.   A  further 
improvement  could  be  made  by  noting  that  the  procedure  for 
selecting  a  piece  from  the  heap  is  inefficient   since  the 
same  piece  may  be  selected  repeatedly  (and  in  a  production 
system  such  as  0PS2  [15]   which  prefers  to  use  recently 
referenced  items  in  WM,  in  other  respects  a  reasonable 
strategy,  the  search  will  almost  always  be  ineffective). 
If  we  add  a  few  more  productions ,  it  becomes  possible  to 
search  systematically  through  the  heap  by  constructing  an 
ordered  pile  from  the  pieces  in  the  heap,  and  putting  a 
piece  down  in  a  different  pile  when  it    has  looked  at  it. 
A  pile  is  more  precisely  a  queue,  but  we  prefer  to  be 
consistent  with  puzzle  terminology.   The  actual  pile  produc- 
tions are  given  in  the  next  section. 


-  13  - 


1.2.2   Extensions  to  Jigsaw  Puzzle  PS 
Working  Memory  Data  Elements: 

(NUMBER-OF-PILES  m)   m  is  the  number  of  piles  we  have 

,1 1  ■■"■ 

made  (initially  zero). 

(CURRENT-PILE  n)   represents  the  current  pile  we  are  using, 
Each  pile  created  is  assigned  a  unique  integer,  n. 

(ALL-PILES  p,  p„  ...)   represents  all  of  the  piles  we  have 
made  where  p.  is  the  integer  associated  with  a  pile. 

(PILE  it,  tp  ...)   represents  the  contents  of  pile  i 
where  t.  can  be  any  object,  and  t,  is  the  first  object 
in  the   pile. 

(REMEMBERED-OBJECT  t)   represents  object  t  as  being  tagged 
or  remembered  as  special. 

(REMEMBERED-PILE  i)   represents  pile  i  as  being  special. 
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Production  Memory: 

MAKE-A-PILE: 

If  you  want  to  make  a  pile  and  you  are  holding  something,  create  a  pile 

with  it  and  your  hand  is  empty.   The  object  continues  to  be  in  view. 

[(HOLDING  (<not>  NOTHING)  $  =object)  $  =cl 
(LOOKING-AT  =object) 
(NUMBER-OF-PILES  =m)  $  =c3 
(ALL-PILES  !  =r)  $  =c4 
(CURRENT-PILE  NONE)  $  =c5 

—  > 

(<delete>  =cl  =c3  =c4  =c5) 
(NUMBER-OF-PILES  {<addl>  =m) ) 
(LOOKING-AT  =object) 
(ALL-PILES  (<addl>  =m)  !  =r) 
(CURRENT-PILE  (<addl>  =m) ) 
(PILE  (<addl>  =m)  =object) 
(HOLDING  NOTHING) ] 

PICK-A-PILE: 

If  you  are  not  working  with  a  pile,  just  pick  the  first  one. 

[(CURRENT-PILE  NONE)  $  =cl 
(ALL-PILES  =pl  !  =r) 

—  > 

(<delete>  =cl) 
(ALL-PILES  =pl  !  =r) 
(CURRENT-PILE  =pl) ] 

PICK-OBJECT-FROM-PILE : 

To  pick  an  object  from  a  pile,  if  your  hand  is  empty,  reach  in  and 

pick  up  the  first  one  you  see. 

[ (CURRENT-PILE  =pl) 
(HOLDING  NOTHING)  $=c2 
(ALL-PILES  =pl  !  =r) 
(PILE  =pl  =object  !  =rest)  $  =c4 
(LOOKING-AT  =object) 

—  > 

(<delete>  =c2  =c4) 
(LOOKING-AT  =object) 
(HOLDING  =object) 
(PILE  =pl  !  =rest) ] 
PUT-OBJECT-IN-PILE : 

To  put  an  object  in  a  pile,  if  you  are  holding  something,  just  place 

it  in  the  back  of  the  pile  and  your  hand  is  empty. 

[ (CURRENT-PILE  =pl) 
(HOLDING  (<not>  NOTHING)  $  =object)  $  =c2 
(LOOKING-AT  =object) 
(ALL-PILES  =pl  !  =r) 
(PILE  =pl  !  =rest)  $  =c5 


—  > 

(<delete>  =c2  =c5) 
(LOOKING-AT  =object) 
(HOLDING  NOTHING) 
(PILE  =pl  !  =rest  =object)l 
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FORGET-THIS-PILE : 

To  forget  a  pile,  just  push  the  current  pile  behind  all  the  others. 

((CURRENT-PILE  =pl)  $  =cl 
(ALL-PILES  =pl  !  =rest)  $  =c2 

—  > 

(<delete>  =cl  =c2) 
(CURRENT-PILE  NONE) 
(ALL-PILES  !  =rest  =pl) 

PILE-IS-EMPTY: 

A  pile  is  empty  if  there  is  nothing  in  it. 

[ (CURRENT-PILE  =pl) 
(ALL-PILES  =pl  !  =rest) 
(PILE  =pl) 

—  > 

1 

DESTROY-A-PILE: 

To  destroy  the  current  pile,  just  strike  it  from  memory. 

[(CURRENT-PILE  =pl )  $  =cl 
(ALL-PILES  =pl  !  =rest)  $  =c2 
(PILE  =pl  !  =r)  $  =c3 

—  > 

(<delete>  =cl  =c2  =c3)   • 
(CURRENT-PILE  NONE) 
(ALL-PILES  !  =rest)] 

THERE-ARE-NO-PILES: 

There  are  no  piles  if  all  the  piles  were  destroyed  or  none  were  ever 

made. 

I (CURRENT-PILE  NONE) 
(ALL-PILES) 

—  > 

] 

LOOK-AT-FIRST-IN-PILE : 

If  there  is  an  object  at  the  front  of  the  pile,  you  can  focus  on  it. 

[  (LOOKING-AT  =anything)  $  =cl 
(CURRENT-PILE  =pl ) 
(PILE  =pl  =object  $  (<not>  =anything) !  =rest) 

—  > 

(<delete>   =cl) 
(LOOKING-AT    =object)] 
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LOOK-AT-NEXT-IN-PILE: 

If  you  want  to  scan  through  a  pile  and  you  are  looking  at  the  first 

object  in  it,  focus  on  the  next  one  by  placing  the  first  object  behing  the 

last  one  in  the  pile. 

[(LOOKING-AT  =object)  $  =cl 
(CURRENT-PILE  =pl) 

(PILE  =pl  =object  =next  !  =r)  $  =c3 

—  > 

(<delete>  =cl  =c3) 
(LOOKING-AT  =next) 
(PILE  =pl  =next  !  =r  =object) ] 

REMEMBER-CURRENT-PILE : 

Whichever  pile  is  current,  tag  it  as  special. 

[(CURRENT-PILE  =pl  $  (<not>  NONE)) 
(REMEMBERED-PILE  =any)  #  =c2 

—  > 

(<delete>    =c2) 
(REMEMBERED-PILE    =pl)] 

REMEMBERED-PILE-IS-CURRENT: 

This   senses    if    the   current   pile    is   the    tagged   special    pile. 

((CURRENT-PILE    =pl    $     (<not>    NONE)) 
(REMEMBERED-PILE    =pl) 

—  > 

] 

FORGET-REMEMBERED-PILE: 

The  special  pile  can  always  be  forgotten. 

[(REMEMBERED-PILE  (<not>  NONE))  $  =cl 

—  > 

(<delete>  =cl) 
(REMEMBERED-PILE  NONE)] 

REMEMBER-CURRENT-OBJECT : 

As  for  piles,  objects  can  also  be  tagged  as  special,  when  they  are  in 

view . 

[(LOOKING-AT  =object  $  (<not>  NOTHING)) 
(REMEMBERED-OBJECT  =any)  $  =c2 

—  > 

(<delete>   =c2) 
(REMEMBERED-OBJECT    =object) ] 
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FORGET-REMEMBERED-OBJECT: 
Same  as  for  piles. 

[ (REMEMBERED-OBJECT  (<not>  NONE))  $  =cl 

—  > 

(<delete>  =cl) 
(REMEMBERED-OBJECT  NONE)] 

REMEMBERED-OBJECT-IN-VIEW: 

This  production  senses  when  the  special  object  is  in  view. 

[(REMEMBERED-OBJECT  =object) 
(LOOKING-AT  =object) 

—  > 

] 

REMEMBERED-OBJECT- IN-HAND: 

This  senses  when  the  special  object  is  being  held. 

[(REMEMBERED-OBJECT  =object) 
(HOLDING  =object) 

—  > 

) 


-  18  - 


The  pile  productions  are  very  general  and  might  be 
expected  to  be  present  in  any  system.   Indeed,  it  seems 
likely  that  productions  for  dealing  with  heaps  and  piles 
(i.e.  sets  and  queues)  and  heuristics  for  implementing 
important  operations  such  as  searching  will  be  present 
in  production  systems   as  they  are    in  modern  programming 
languages  [11 ] . 

Carrying  our  jigsaw  puzzle  problem  further,  sufficient 
productions  are   present  now   to  permit  simple  sequencing 
heuristics  to  reflect  the  usual  strategies  used  by 
experienced  puzzle-solvers: 

-  work  on  the  outside  edges  first  (build  a  pile  of 
outside  edges) ; 

repeat  the  FIT-PIECE-IN-PUZZLE  sequence  until  this 
pile  is  empty; 

-  separate  the  pieces  in  the  heap  into  piles  of  the  same 
average  color   and  search  the  appropriate  pile  first; 

-  search  first  for  pieces  which  have  more  than  one 
neighbor  of  the  same  average  color  (work  on  the   sky 
first) ; 

It  may  appear  at  first  glance  that  automatic  detection  of 
such  heuristics  is  a  task  of  great  difficulty.  Below  we 
outline  an  approach  to  this  problem  which  has  been  quite 
successful . 


-  19  - 


1 . 3   Approach 

Our  approach  is  as  follows: 

(1)  Select  a  'typical'  input  to  the  program  and  run  the 
program  repeatedly  on  this  input, 

(2)  Record  the  sequence  of  rules  selected  (together  with 
input/output  information  and  the  conflict  set  of  rules 
on  each  cycle) . 

(3)  Repeat  this  for  other  typical  inputs. 

(4)  Describe  the  better  (i.e.  shorter)  successful  sequences 
in  a  language,  CRAPS,  desxgned  for  this  purpose  (and 
described  in  the    next  chapter) . 

(5)  Generate  a  set  of  meta-rules  whose  objective  is  to  aid 
the  CRAPS  description   if  the  sequencing  is  inappropriate 

(6)  Use  the  CRAPS  description  and  the  meta-rules  to  guide 
the  program's  subsequent  decisions. 

In  view  of  the  complexities  of  the  problems  with  this 
approach,  it  was  necessary  to  define  a  starting  point  from 
which  we  can  proceed  to  study  the  more  general  case. 
Accordingly,  we  have  made  certain  assumptions  and  decisions 
in  order  to  derive  useful  results. 

Inherent  in  our  approach  is  the  assumption  that  good 
decision-making  procedures  or  heuristics  can  be  inferred 
from  the  performance  of  the  program  on  only  selected  inputs. 
We  anticipated  that  the  selection  of  inputs  would  be 
critical  and  that  eventually  new  inputs  would  be  handled 
incrementally,  as  was  done  by  Winston  [49]  .   However,  in  this 
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work  we  concentrate  on  the  simpler  problem  of  getting  a  good 
solution  for  the   nonincremental  case.   In  general,  as 
suggested  by   work  on  learning  systems   [49]  and  information 
theory  [6,26,40],  we  give  preference  to  short  CRAPS  descrip- 
tions which  will  generate  a  high  proportion  of  short  success- 
ful solution  sequences   and  few   long  or  unsuccessful 
sequences . 

The  preliminary  investigations  we  did  suggested  that 
the  execution  time  of  a  completely  declarative  program  will 
usually  be  too  long  to  permit  a  solution  except  in  the 
simpler  cases.   Accordingly,  the  solution  sequences  are 
provided   by  a  human  expert  running  the  program  in  "training 
mode"   in  which  its  decisions  are  observed  and  corrected 
when  necessary.   Further,  the  human  expert  is  aware  of   the 
structure  of  the  program.   In  subsequent  generalization 
of  this  approach,   we  anticipate  the  necessity  of  using 
techniques  similar  to  those  of  Davis  [9],  which  will  enable 
the  trainer  to  deal  only  with  the  external  behavior  of 
the  program. 

We  also  have  deliberately  chosen  to  exclude  information 
about  sequences  which  end  in  failure.   It  is  clear  that, 
as  found  by  Winston  and  others  [3,21,41,49],  counterexamples 
will  be  extremely  valuable,   However,  as  the  reader  will 
note  below,  even  the  simpler  problem  we  study  poses  consider- 
able technical  difficulties  and  it  was  our  feeling  that  a 
clearer  picture  would  emerge  from  the  simpler  approach. 
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Furthermore,  the  experiments  described  below  suggest  that  useful  results 
can  be  obtained  without  counterexamples. 

In  our  initial  analysis,  the  meta-rule  construct  appeared  to  be  the 
most  ill-defined  aspect  of  our  approach.   Subsequent  experimentation  pro- 
vided us  with  insight  as  to  how  to  define  them  and,  consequently,  how  to 
automatically  construct  them.   Accordingly,  we  decided  on  two  directions 
in  which  to  test  o\ir  approach.   In  the  first  case,  we  attempt  to  infer  an 
accurate  description  of  several  sequences  which  would  not  require  the  use 
of  meta-rules.   We  have  provided  an  example  of  this  test  case  in  Section  3.1. 
Alternatively,  we  construct  an  inadequate  description,  using  a  single 
solution  sequence,  which  would  force  the  use  of  the  meta-rules.   This  allows 
us  to  judge  the  relative  power  and  usefulness  of  the  model  we  have  chosen. 
Chapter  3  reports  the  findings  of  this  experiment. 

The  logical  organization  of  the  overall  system  is  outlined  in  Figure  1.1. 

We  may  describe  the  technical  problem  with  this  approach  as  inductive 
inference  of  a  program.   The  typical  inductive  inference  problem  can  be 
formalized  as  follows  (see  for  example  (2)),   Given  a  finite  alphabet  of 
symbols,  E,  and  two  finite  subsets  S,  TCE   (where  E  denotes  the  set  of 
all  finite  length  strings  composed  of  elements  from  -E-)  ,  what  is  the  smallest 
positive  integer  k  such  that  there  is  a  program  P  (in  any  suitably  powerful 
model  of  computation)  of  length  equal  to  k  (according  to  some  well  defined 
metric),  such  that  if  LS.E  is  the  language  accepted  (or  generated)  by  P, 
then  SC  L  and  tDl  =  0  ?  Alternatively,  what  is  the  minimum  length  program 
P,  such  that  if  L&E  is  the  language  accepted  (or  generated)  by  P,  then 
SSL  and  tDl  =  0  ?  Since  we  ignore  counterexamples  (t),  our  approach  to 
the  general  problem  is  to  attempt  to  construct  any  short  program  P  which 
generates  all  of  the  members  of  the  sample  set  most  of  the  time.   In  other 
words,  we  attempt  to  construct  a  minimal  length  program  which  accurately 
characterizes  the  given  sample.   In  formal  terms,  infer  the  shortest 
(nondeterministic)  program  P  such  that  SQL,  where  L  is  the  language 
generated  by  P,  and  when  P  is  run  randomly  (making  random  choices  at 
decision  points  in  the  program)  for  at  most  some  large  number  of  steps  then 
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Figure  1.1  System  Organization. 
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is  maximized,  where  H  is  the  number  of  strings  generated  by  P  that  appear  in 
S,  G  is  the  number  of  trials  and  n  is  the  length  of  the  program  (in  bits).  The 
form\ila  above  captures  the  notion  of  the  program  P  generating  members  of  the 
sample  set  most  of  the  time  with  the  tradeoff  that  a  program  P'  whose  length 
is  one  more  than  P  will  be  preferred  if  P'  generates  strings  in  S  twice  as 
often. 

There  are  several  alternative  formalizations  of  the  general  problem 
if  we  consider  different  computational  models.   For  instance,  if  P  were 
defined  to  be  a  grammar  over  a  finite  set  of  symbols  (23]  ,  the  problem 
can  be  viewed  as  inductive  inference  of  a  grammar  g-Sj  .   If  we  restrict  the 
power  of  the  grammar  to  Type  3  ^3]  (S  is  a  finite  set  as  so  is  regular), 
the  problem  can  be  stated  as  the  construction  of  the  minimum  length 
Regular  Expression  over  Z  which  generates  the  language.   It  is  in  fact 
this  view  of  the  problem  which  motivates  the  solution  we  present  in  the 
next  chapter.   As  we  shall  see  shortly,  the  CRAPS  language  in  even  a 
restricted  form  has  the  power  of  Regular  Expressions. 
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1 .3 . 1   A  Complete  Example 

To  demonstrate  our  approach,  we  will  discuss  a  less 
difficult  problem  with  an  algorithmic  solution:  nondetermin- 
istic  Binary  Tree  Traversal  [27]  .   The  PS  program  in 
Figure  1.2  has  the  ability  to  scan  a  binary  tree  in  any 
order.   No  control  information  is  specified,  i.e.,  the 
productions  encode  all  of  the  relevant  information  about 
scanning  binary  trees  without  specifying  direction. 

A  binary  tree  is  represented  in  \'M   by  the  following 
data  format:   The  root  of  the  tree  is  represented  by 
(ROOT  =X)   where  =X   can  be  bound  to  any  symbol.   If  node  B 
has  a  left  son  A,  it  is  represented  by  (LEFT  B  A)  and 
similarly  (RIGHT   B  C)  represents  C  as  the  right  son  of  B. 
The  father  B  of  a  node  A  is  represented  by  (FATHER   B  A) . 
The  current  node  being  scanned  is  (NODE  =X) .   Nodes  can 
be  printed  only  once,  and  so  if  node  A  has  been  scanned 
and  printed,  then  (ALREADY-P   A)  is  deposited  in  WM. 

Several  binary  trees  were  placed  in  Wt4  and  then  the 
program  was  initiated  and  directed  by  a  human  to  perform 
an  in-order  scan  of  each  tree.   A  trace  for  each  execution 
was  produced  (see  Figure  1.3).   The  entire  set  of  traces 
was  analyzed  to  produce  the  CRAPS  description  presented  in 
Figure  1.4. 

In  this  particular  case  the  CRAPS  description  is  a 
precise  definition  of  an  in-order  balanced  binary  tree  scan 
program.   That  is,  given  a  \W   specifying  a  balanced  binary 
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tree,  the  shortest  execution  sequence  of  the  program  which 
would  result  in  an  in-order  print  of  the  nodes  would  belong 
to  the  set  of  sequences  specified  by  the  CRAPS  description; 
furthermore,  the  CRAPS  description  provides  enough  informa- 
tion to  determine  which  production  should  be  fired  at  every 
point  in  the  execution  of  the  program.   Thus  a  nondeterministic 
program  has  in  effect  been  reduced  to  a  deterministic 
program. 

In  general,  we  cannot  assume  that  the  CRAPS  description 
will  be  as  effective  as  this.   V^Jith  poor  training  sequences, 
or  incorrect  analyses  of  execution  traces,  CRAPS  descrip- 
tions may  imply  heuristics  which  are  not  helpful,  or  which 
are  helpful  for  some  examples  and  harmful  in  others.  We 
discuss  these  points  more  fully  in  the  last  chapter. 
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Figure  1.2  Binary  Tree  Scanning  PS. 
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(FATHER  =X  =Y) 

GO-RIGHT 

[(NODE  =X)  $  =C1  (RIGHT  =X  =Y)  -->  (<delete>  =C1)  (NODE  =Y) 

(FATHER  =X  =Y) 

CAN-T-GO-LEFT 
[(NODE  =X)  -  (LEFT  =X  !  =)  — >  DUMMY) 


CAN-T-GO-RIGHT 
[  (NODE  =X)  -  (RIGHT  =X  !  =)  ~>  DUMMY) 


PRINT 

[(NODE  =X)  -  (ALREADY-P  =X)  — >  (NODE  =X)  (<write>  =X) 

(ALREADY-P  =X) ] 

GO-UP 
[(NODE  =X)  $  =C1  (FATHER  =Y  =X)  -->  (<delete>  =C1)  (NODE  =Y) ] 


STOP 

[(NODE  =X)  $  =C1  (ROOT  =X)  — >  (<delete>  =CI)  (<halt>  FIN)] 
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Figure  1.3  Execution  Traces  from  Binary  Tree  PS  Run, 


An  exact  description  of  the  contents  of  the  trace  will  be 
deferred  until  chapter  2.   A  trace  is  a  sequence  of  lists;  the 
first  item  in  the  list  is  the  rule  applied  at  that  point  in  the 
execution,  followed  by  a  list  of  the  rules  which  were  also 
applicable,  but  which  were  not  selected  for  execution. 


<< 

(START-POINTING  NIL  (1)  (2  2)) 

(PRINT  (STOP  CAN-T-GO-RIGHT  CAN-T-GO-LEFT)  (1  2)  (3  4)) 

(STOP  (CAN-T-GO-RIGHT  CAN-T-GO-LEFT)  (1  4)  (5  6)) 

>> 

<< 

(START-POINTING  NIL  (9)  (10  10)) 

(GO-LEFT  (STOP  PRINT  GO-RIGHT)  (9  10)  (11  13)) 

(PRINT  (GO-UP  CAN-T-GO-RIGHT  CAN-T-GO-LEFT)  (12  13)  (14  15)) 

(GO-UP  (CAN-T-GO-RIGHT  CAN-T-GO-LEFT)  (12  15)  (16  17)) 

(PRINT  (STOP  GO-LEFT  GO-RIGHT)  (9  17)  (18  19n 

(GO-RIGHT  (STOP  GO-LEFT)  (9  19)  (20  22)) 

(PRINT  (GO-UP  CAN-T-GO-RIGHT  CAN-T-GO-LEFT)  (21  22)  (23  24)) 

(GO-UP  (CAN-T-GO-RIGHT  CAN-T-GO-LEFT)  (21  24)  (25  26)) 

(STOP  (GO-LEFT  GO-RIGHT)  (9  26)  (27  28)) 

>> 

<  < 

(START-POINTING  NIL  (14)  (15  15)) 

(GO-LEFT  (STOP  PRINT  GO-RIGHT)  (14  15)  (16  18)) 

(GO-LEFT  (GO-UP  PRINT  GO-RIGHT)  (17  18)  (19  21)) 

(PRINT  (GO-UP  CAN-T-GO-RIGHT  CAN-T-GO-LEFT)  (20  21)  (22  23)) 

(GO-UP  (CAN-T-GO-RIGHT  CAN-T-GO-LEFT)  (20  23)  (24  25)) 

(PRINT  (GO-UP  GO-LEFT  GO-RIGHT)  (17  25)  (26  27)) 

(GO-RIGHT  (GO-UP  GO-LEFT)  (17  27)  (28  30)) 

(PRINT  (GO-UP  CAN-T-GO-RIGHT  CAN-T-GO-LEFT)  (29  30)  (31  32)) 

(GO-UP  (CAN-T-GO-RIGHT  CAN-T-GO-LEFT)  (29  32)  (33  34)) 

(GO-UP  (GO-LEFT  GO-RIGHT)  (17  34)  (35  36)) 

(PRINT  (STOP  GO-LEFT  GO-RIGHT)  (14  36)  (37  38)) 

(GO-RIGHT  (STOP  GO-LEFT)  (14  38)  (39  41)) 

(GO-LEFT  (GO-UP  PRINT  GO-RIGHT)  (40  41)  (42  44)) 

(PRINT  (GO-UP  CAN-T-GO-RIGHT  CAN-T-GO-LEFT)  (43  44)  (45  46)) 

(GO-UP  (CAN-T-GO-RIGHT  CAN-T-GO-LEFT)  (43  46)  (47  48)) 

(PRINT  (GO-UP  GO-LEFT  GO-RIGHT)  (40  48)  (49  50)) 

(GO-RIGHT  (GO-UP  GO-LEFT)  (40  50)  (51  53)) 

(PRINT  (GO-UP  CAN-T-GO-RIGHT  CAN-T-GO-LEFT)  (52  53)  (54  55)) 

(GO-UP  (CAN-T-GO-RIGHT  CAN-T-GO-LEFT)  (52  55)  (56  57)) 

(GO-UP  (GO-LEFT  GO-RIGHT)  (40  57)  (58  59)) 

(STOP  (GO-LEFT  GO-RIGHT)  (14  59)  (60  61)) 

>> 
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Figure  1.4  Abbreviated  (and  'pretty-printed')  CRAPS  output  for 
Binary  Tree  PS  example. 

A  formal  specification  of  the  CRAPS  language  is  presented 
in  Chapter  2.   A  CRAPS  description  is  a  sequence  of  lists 
enclosed  in  (double)  pointed  brackets  (<<  >>) .   Each  list  con- 
tains the  name  of  the  rule  to  apply  or  a  control  operation  to  be 
applied  to  a  CRAPS  (sub-) sequence.   Control  operations  are  en- 
closed in  square  brackets  ( [  ] ) . 


<<S tart-pointing 

[If  (Go-left  &  Stop  &  Print  &  Go-right) 
Then 
<< [Repeat  (While  (Go-left  &  Go-right)) 

<< [Repeat  (While  (Go-left  &  Go-right)) 
(Until  (Can-t-go-left  & 

Can-t-go-r  ight)  ) 
<<Go-left>>] 
[Repeat  (While  (Can-t-go-left  & 

Can-t-go-r  ight)  ) 
(Until  (Go-left  &  Go-right)) 
<<Print 

[Repeat  (While  (Go-up)) 
(Until  (Print)) 
<<Go-up>>] 
Print 

Go-right>>] >>] >>] 
Print 

[If    (Go-up   &   Can-t-go-r ight    &   Can-t-go-left) 
Then 

<< [Repeat  (While  (Go-up)) 
(Until  (Stop)) 
<<Go-up>>] >>] 
Stop>> 
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1. 4   Related  Research 

Several  similar  problems  have  been  investigated  with 
approaches  and  scope  overlapping  with  ours.   We  have 
attempted  below  to  categorize  these  projects  in   the  two 
areas  of  knowledge  representation  and  inductive  inference. 


1.4.1   Knowledge  Representation 

Recently,  many  researchers  have  focused  on  the  repre- 
sentation of  knowledge  in  a  purely  declarative  form  with  a 
(nearly)  independent  procedural  component.   Cohn  [7] ,  uses 
a  control  language  very  much  like  CRAPS  to  specify  the 
major  steps  of  the  deductions  in  a  formal  proof  system 
necessary  to  prove  the  correctness  of  a  program.  Sickel  [39] 
and  Deliyanni   and  Kowalski  [10],   describe  an  approach 
which  automatically  constructs  'links'  between  clauses 
or  formulas  in  a  formal  proof  system  which  provides  guidance 
during  the  proof  process.   Both  are  essentially  syntactically 
oriented  although  it  can  be  argued  that  the  latter  is  more 
semantically  oriented. 

Rychener  [36]  and  Kibler  [25]   describe  approaches  in 
which  the  control  information  is  more  closely  bound  to  the 
declarative  representation,  in  both  cases  Production  Systems. 
In  effect,  meta-rules  are  compiled  into  the  productions 


-  30  - 


(in  the  form  of  'control  elements'  in   Rychener ' s   case, 
and  'directions'  in  Kibler's  case)   such  that  a  prescribed 
set  of  productions  can  communicate  with  each  other  (through 
data  deposited  in  WM)   and  effect  a  variety  of  control 
structures.   Kibler's  work  is  the  only  report  known  to  the 
author  which  specifically  describes  an  approach  to  auto- 
matically generating  (and  compiling)  meta-rules. 

Davis'  work  [9]  (specifically  Chapter  7   of  his  thesis 
on  strategies)  laid  the  ground  work  for  this  thesis.  The 
meta-rules  he  defined  for  the  MYCIN  system  are  an  independent 
collection  of  rules  to  be  applied  v/hen  the  next  step  of  the 
deduction  is  not  clear.   The  meta-rules  we  define  in  this 
thesis  are  of  exactly  this  nature.   However,  his  meta-rules 
are  limited  in  scope  (i.e.  problem  or  data  specific)  and 
explicitly  acquired  (and  fine-tuned)  by  a  human  expert. 
VJe  present  an  approach  to  automatically  generating  a  set 
of  meta-rules  based  on  the  transformations  of  the  conflict 
set  during  execution  without  human  intervention  (although 
the  system  is  trained  by  a  human  from  examples).   To  date, 
no  research  has  been  reported  which  combines  automatic 
program  generation  with  the  production  system,  meta-rule 
methodology. 

Quite  similar  to  our  overall  goal  is  the   report  by 
Fikes,  Hart  and  Nilsson  [14].   They  introduced  the   notion 
of  'robot-plans'   in  relation  to  the  STRIPS  problem-solving 
system,  a  formal  proof  system.   Sequences  of  operator  appli- 
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cations  used  in  the  solution  of  sample  problems  were  stored 
for  possible  guidance  (or  planning)  in  solving  subsequent 
problems.  Data  items  that  were  used  by  and  propagated 
through  sequences  of  operators  were  stored  in  tables,  and 
later  used  as  triggers  for  applying  the  known  sequences. 
The  work   we  report  stresses  the  importance  of  a  deeper 
analysis  of  the  sequence  of  operator  applications. 
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1.4.2   Inductive  Inference 

It  is  very  difficult  to  characterize  much  of  the  work 
in  inductive  inference,  partly  because  of  the  scope. of  this 
rather  large  field.   We  have  grouped  several  fields  usually 
associated  with  artificial  intelligence  research  under  this 
topic:   automatic  programming,  program  construction, 
inductive  inference  and  learning.   As  is  often  the  case 
with  such  categorization,  the  boundary  lines  between  these 
fields  are  often  blurred  or  nonexistent. 

The  approaches  to  automatic  program  construction  can 
be  loosely  termed  transformational  approaches.  That  is, 
starting  with  a  high  level  or  abstract  description  of  what 
the  target  program  should  do  on  certain  inputs,  transform 
the  specification  into  an  executable   program  satisfying 
the  specification.   The  specifications  are  in  a  variety 
of  forms,  including  predicate  calculus,  set  theory  and  lists 
of  input/output  pairs.   It  appears  that  the  more  difficult 
problems  are  those  that  have  purely  syntactic  input  (i.e. 
uninterpreted  symbols  in  the  specification)  and  only  the 
relationship  between  input  and  output  (i.e.  no  intermediate 
states) .    Many  such  systems  have  been  developed,  all  with 
limited  success.   See  for  example  Lee,  Gerhart,  and 
De  Roever  [28],  Summers  [42]   and  Waldinger  and  Lee  [46]. 
Siimmers  •  work  is  particularly  interesting  since  it  is  well 
defined  and  couched  in  a  very  rigorous  mathematical  theory 
of  LISP  programs. 
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The  solutions  to  problems  that  have  been  studied 
which  allow  interpretation  and  intermediate  states  can  be 
characterized  by  ad  hoc,  or  of  the  heuristic  search 

(hypothesize  and  test)  variety.   For  example,  Abrahams  [1] 
reports  on  a  system  that  predicts    sequences  of  interpreted 
atoms  based  on  a  collection  of  ad  hoc  heuristics.   Phillips' 

[3  3]  work,  as  part  of  the  larger  PSI  automatic  programming 
project  at  Stanford,  is  based  on  a  collection  of  ad  hoc 
heuristics  for  constructing  LISP  programs. 

The  work  we  report  on  allows  for  intermediate  states 

(the  entire  solution  sequence)  and  uninterpreted  symbols 

(only  equality  relates  components).   We  provide  algorithms 
for  the  analysis  of  sequences  which  we  view  as  good  approxi- 
mations employing  helpful  heuristic  rules,  and  are  not  of 
the  more  ad  hoc  variety.   The  algorithms  we  use  do  not 
search  a  large  space   of  programs  looking  for  a  minimum 
solution,  but  instead  produce  one  output  directly  (although 
searching  of  the  components  of  the  sequences  is  of  course 
necessary  in  the  analysis).   We  view  the  meta-rule  construct 
we  use  as  a  fine-tuning  mechanism,  correcting  the  generated 
program  whenever  necessary.   The  optimal  solution  may  not  be 
required  if  there  is  an  appropriate  set  of  'patch-ups' 
that  allow  for  a  more  accurate  solution. 

Many  projects  have  been  reported  which  use  the 

'hypothesize  and  test'  paradigm  of  program  generation  (or 
grammatical  inference).   Biermann  [5]  is  one  such  system 
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which  offers  a  simple  but  elegant  heuristic  search  algorithm 
which  generates  Turing  machines  from  uninterpreted  inter- 
mediate states.   As  he  points  out,  the  model  of  learning 
which  he  describes  has  been  studied  by  many  workers  in 
grammatical  inference,  for  example,  Feldman  [13], 
Hedrick  [21],   Solomonoff  [40],  and  Waterman  [47] 
(to  a  certain  extent).   Hewitt's  work  with  PLANNER  [22] 
and  the  work  of  Schmidt  and  others  on  the  Plan  Recognition 
Problem   [38]   are  also  of  this  form.   It  seems  apparent 
that  such  approaches  may  be  effective  only  in  the  presence 
of  very  sophisticated  heuristics. 

Angluin* s  work  [2,3,4]  requires  special  mention. 
It  is  not  very  often  that  problems  in  artificial  intelligence 
are  defined  with  a  high  degree  of  rigor.   She  has  stated 
the  problem  of  Minimum  Inference  of  Regular  Expressions 
and  proved  its  NP-completeness  (see  Garey  and  Johnson  [17]). 
Given  a  finite  alphabet  of  symbols  Z,  two  finite  subsets 
S,T  c  Z  ,  and  a  positive  integer  K,  is  there  a  regular 
expression  E   over  Z  that  has  K  or  fewer  occurrences  of 
symbols  from  Z  and  such  that,  if  L  c  Z   is  the  language 
represented  by  E,  then  S  c  l  and  T  c  z   -  L  ?   In  fact 
she  also  showed  that  this  problem  remains  NP-complete  if  'u' 
operations  or  Kleene  star  (*)  operations  are  not  allowed 
in  the  regular  expressions.   (This  corresponds  to  disallow- 
ing alternation  and  repetition,  respectively,  in  our  analysis.) 
Angluin  [3]   elected  to  solve  a  simpler  problem,  namely 
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finding  a  pattern  common  to  a  set  of  strings  where  the 
patterns  defined  are  different  from  regular  expressions. 
Since  it  is  believed  by  many  researchers  that  NP-completeness 
implies  intractability  (see  Garey  and  Johnson  [17]),  we 
have  elected  to  approximate  the  solution  of  the  more  general 
problem.   Notice  that  T   as  defined  above   corresponds  to 
counterexamples  which  we  do  not  use.   As  mentioned  earlier, 
Winston's  [49]  work  stresses  the  importance  of  counter- 
examples.  We  mention  Hunt  et  al.  [24]  simply  for  its 
similarity  to  Winston's  work. 

In  a  more  general  setting,  many  researchers  have 
studied  inductive  inference  within  formal  syntactic  systems. 
These  approaches  are  based  on  formal  inductive  rules  of 
inference.   Other   related  work  includes  Meltzer  [31], 
Plotkin  [34],  Popplestone  [35]  and  Sperling  [41]. 

Finally,  in  fields  quite  different  from  those  mentioned 
here,  there  is  some  work  strikingly  similar  to  the  problems 
we  consider  in  this  thesis.  Fosdick  and  Osterweil  [16] 
describe  an  approach  to  program  testing  based  on  a  data  flow 
analysis  which  constructs  'patterns  of  variable  usage', 
which  are  essentially  regular  expressions.   A  classification 
scheme  of  such  patterns   suggests  which  paths  in  the 
program  contain  anomalies,  and  can  then  be  used  to  predict 
errors  in  the  program.   Habermann [18 ]  in  quite   a  different 
application  describes  the  use  of  'path  expressions',  which  is 
essentially  an  independent  (yet  integrated)  collection  of  informa- 
tion used  to  control  the  synchronization  of  concurrent  processes. 
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CHAPTER  2.   THE  CRAPS  LANGUAGE 

In  this  chapter  we  formally  outline  the  specification 
of  the  CRAPS  language  and  then  present   the  algorithms 
which  compile  CRAPS  descriptions.   The  UT  LISP  code  which 
implements  the  algorithms  has  not  been  included  in  this 
thesis . 

2 . 1    A  Formal  Specification 

As  indicated  above ,  the  CRAPS  language  provides  a 
semantic  framework  with  which  to  specify  or  describe 
sequences  of  rule  applications  in  the  execution  of  the 
nondeterministic   program.   The  basic  primitive  of  CRAPS 
is  called  a  unit.      A  unit  specifies  either  a  rule 
application  with  preconditions,  in  which  case  it  is  called 
a  simple    unit,  or  a  control  operation  applied  to  a  sequence 
of  units.  The  control  operations,  which  are  formally 
defined  in  the  next  section,  are  (implicit)  Concatenation 
of  units  producing  sequences,  i?epetition  of  a  sequence 
controlled  by  simple  Boolean  assertions  in  Disjunctive 
Normal  Form  (DNF)  ,  /Alternative  or  conditional  selection 
of  a  sequence  from  a  set  of  sequences  and  the  Permutation 
of  a  set  of  sequences.   (From  which  we  have  derived  the 
acronym  CRAPS. ) 

The  CRAPS  operators  correspond  to  various  control 
primitives  of  conventional  programming  languages.  Concatena- 


tion  corresponds  to  sequential  execution  of  statements 
and  the  repetition  operator  corresponds  to  iteration 
statements  with  continuation  and  termination  conditions. 
The  alternation  operator  specifies  alternative  sequences 
of  actions  much  like  an  ALGOL-68  'case'  statement  or  LISP 
conditional  expression.   The  permutation  primitive 
represents  a  form  of  concurrent  execution  similar  to  the 
ALGOL-68  'collateral  expression'. 
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2.1.1   A  BNF  Description  of  CRAPS 


In  what  follows,  parentheses  are  terminal  symbols. 
Alternatives   in  the   right-hand  side  of  a  production  are 
separated  by  lines  and  preceded  with  ::=  .   The  nontermi- 
nal <atom>  is  any  (LISP)  identifier. 


<sequence> 
<sequence+> 

<unit+> 

<unit> 


<simple-u> 
<atom*> 

<repetition-u> 

<dnf> 

<dis juncts+> 

<permutation-u> 
<atom-u> 
<alternation-u> 
<cond> 
<cond*> 


=<<  <unit+>  >> 

-  <sequence>  <sequence+> 
=   <sequence> 

==   <unit>  <unit+> 

=   <unit> 

=   <simple-u> 

-  <repetition-u> 
=   <permutation-u> 
=   <atom-u> 

=   <alternation-u> 
(<atom>  <dnf>) 
=   <atom>  <atom*> 

=   (R.*  <sequence> 

(W.*  <dnf>) 

(U.*  <dnf>)  ) 

(  OR.*  (  <atom*>)  <disjuncts+>) 

(  <atom*>  ) 
=   (  <atom*>  )  <disjuncts+> 

(  <atom*>  ) 

:  :=  (P.*  <sequence  ><sequerice+ >) 

=   <atom> 

=   (A.*  <cond>  <cond*>) 

=   (<sequence>  <dnf>) 

=   <cond>  <cond*> 
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The  syntax  specified  is  used  in  the  actual  implementa- 
tion.  However,  a  'pretty-printed'  version  of  the  language 
is  used  in  the  machine  output  contained  in  this  thesis. 
Consequently,  R.*  is  replaced  by  REPEAT,  P.*  by  PERMUTE, 
and  A.*  by  an  IF  THEN  ELSE  form,  each  enclosed  in  square 
brackets  (see  Appendix  2  and  Figure  1.4) . 
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2.1.2   Definition  of  the  CRAPS  Operators 

Cambridge  notation  is  used  for  the  operators  except 
for  concatenation   which  is  implicitly  specified  as  a 
sequence  of  units . 

1.  Concatenation  of  units. 

Let  S-,  ,  s-^ ,  -  '  •  ,  s     be  units.   Then  the  sequence 
^1 '  ^2       n  ^ 

S  =  <<s,  s„  ...  s  >>  is  the  concatenation  of    the  units  s. , 
1   2       n  1 

i  =  l,...,n.  (Throughout  the  remainder  of  this  paper, 
sequences  will  be  represented  by  a  sequence  of  objects 
enclosed  in  pointed  brackets,  <<  and  >>,  and  separated 
by  blanks. 

2.  Concatenation  of  sequences. 

Let   S,  =  <<St ,  s,T  ...  s,   >> 
1      11   12       im. 


2  21   22       2m, 


1 

'2 


S .  -    <<s  . ,  s . -  ...  s .   >> 

3  d1   d2       ^m^ 

Then      <<St  S„  ...  S.>>  = 
12       3 

^^^11  ^12  •••  ^Im^    ^21  ^22  •••  ^2m2  ***  ^jl  ^j2 

In  the  obvious  way,  we  denote 


S^  = 


<<S"~-'-  S>>  if  n  >  1 


the  null  sequence       if  n  =  0 
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Repetition  of  a  sequence. 


Let  S,  be  as  in   2  above.  Then 


(R. 


(W.*  c, )  (U. 


)  =  S 


n 


1  '      1'  '  2''  1 

where  n  >  1   is  chosen  so  that  repetition  terminates  as 


soon  as  c,  is  false  or  c^  is  true.   The  conditions 
C-.    and  c_     are  simple  Boolean  assertions  of  rule 
applicability  written  in  DNF  (see  6  below) . 


Alternation  of  a  set  of  sequences 


Let   SwS  ,...,S.  be  as  in  2  above 


Let  U  =  (A.*  (S^  c^)  (S^  c^; 


(  S.  cj)  ,  j  >  1, 


and  c.  ,  i=l,...,j   are  simple  Boolean  assertions 


in  DNF.   Then 


U  = 


if  c,  is  true  then  S, 

else  if  c„  is  true  then  S„ 

else  . .  . 

else  if  c-i  is  true  then  S 
J 

else  S^. 


5.    Permutation  of  two  or  more  sequences. 

Let  S, ,S_,...,S.  be  as  in  2  above.  Then 
12     '    J 


(P.*  S^  S2 


^:'  = 


<<S  .   ,    S  ■   1, 

^1^1   ^2'^2 


^i  k  ^^ 


I   =      ]^      m   ,  and 
t-1 


if  i   =  i   then  k   <  k 
r    q       r    q 


The  permutation  operator  is  more  like  a  shuffle  operator, 
that  is  the  argument   sequences  can  be  merged  in  any  order 
as  long  as  the  ordering  within  each  sequence  is  maintained. 
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DNF  conditions. 


Let  C  =   (OR.*  (a,,  a, „  ...  a,   ) 

11   12       In, 


(^kl   ^k2   •  •  •  ^kn,  ^  ^ 

k 

Then  C  is  true  if  1  £  3i  £  k   sucn  that  1  ^  Vj  ;£  n.  , 

aj|_4  is  active,  otherwise  C  is  false.  If  C  =  (a,  a„ .  .  .  ^v^ )  f 

then  C  is  true  if  1  <  Vj  <  k,   a .  is  active. 


A  simple  unit  is  the  most  basic  primitive  of  CRAPS. 
It  is  composed  of  two  parts,  the  name  of  a  rule  to  apply  and  a 
expression  that  must  be  sa-*   "^ied  (i.e.  evaluate  to  true)  in  o] 
to  execute  the  associated  rule  name. 

The  (programmed)  interpretation  of  the  above  definitions  j 
follows:   A  sequence  of  units  specifies  sequential  applica- 
tion of  each  of  the  component  units.   The  repetition  of  a 
sequence  is  much  like  a  PL/I    do  loop;  apply  the  argioment 
sequence  one  or  more  times  while  the  condition  c,  is  true 
and  c_  is  false. 

The  alternation  operator  selects  the  first  sequence  to 
apply  whose  corresponding  condition,  c  .  ,  is  true.   The 
permutation   of  a  set  of  sequences  specifies  that  each  of  its 
argument  sequences  are  to  be  applied  in  any  order  or  merged 
in  any  order; sequential  execution  of  the  appended  arguments 
is  chosen. 

Finally,  in  the  execution  of  a  production  system, 
whenever  a  DNF  condition  is  to  be  evaluated,  the  condition 
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is  true  if  any  of  its  conjuncts  are  true;  otherwise  it  is 
false.   A  conjunct  is  true  if  each  of  the    productions 
listed  are  matched  by  data  from  working  memory  at  the  time 
the  condition  is  being  evaluated.  Examples  of  these 
definitions  follow. 


2.1.3   Examples 

(1)  When  executing  the  simple  unit 

(GO-LEFT  (OR.*  (STOP  PRINT)   (GO-RIGHT))), 

if  the  productions  STOP,  GO-RIGHT  and  GO-LEFT  are  active, 

then  the  rule  named  GO-LEFT  would  be  executed  next. 

(2)  (R.*  << (GO-RIGHT (PRINT) ) 

(PRINT  (OR.*  (GO-RIGHT)   (STOP)))>> 
(W.*  (GO-RIGHT)) 
(U.*  (STOP))  ) 
produces  the  sequencing: 
<<  (GO-RIGHT  (PRINT)) 

(PRINT  (OR.*  (GO-RIGHT)   (STOP))) 

(GO-RIGHT  (PRINT) ) 

(PRINT  (OR.*  (GO-RIGHT)   (STOP))) 

>> 

continually  while  the  production  GO-RIGHT  is  active 

and  STOP  is   inactive.   The  conditions  are  tested  when 
the  end  of  the  argument  sequence  is  reached.  Notice, 
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however,  that  the  preconditions  of  the  units  contained 

in  the  argument  sequence  must  still  be  satisfied 

when  executing  the  argument  sequence.  The  details 
are  in  Section  2.1.4. 

(3)    (P.*  << (START-ENGINE (  )  )   (SHIFT-FORWARD  (  )  )>> 
<< (TURN-ON-RADIO  ())>>) 
could  produce  3  sequences: 

{<< (START-ENGINE  0  )  (SHIFT-FORWARD ()  )  (TURN-ON-RADIO ()) >> 
<<  (START-ENGINE  0  )  (TURN-ON-RADIO () )  (SHIFT-FORWARD ()) >> 
<< (TURN-ON-RADIO  0 ) (START-ENGINE () ) (SHIFT-FORWARD ()) >> 

} 
In  a  parallel  environment  (two  arms  for  a  robot)  both 
sequences  could  be  done  simultaneously.   In  the  actual 
implementation  of  the  language,  the  argument  sequences 
are  concatenated  and  executed  in  order. 


(4)    (A.*  (<<(EAT  (  ))>>  (THERE-IS-FOOD)  ) 

(<< (THANK-HOST  (  ))>>  (PLATE-EMPTY)  )  ) 
produces  the  sequencing  <<  (  EAT  (  ) ) >>  if  the  production 
THERE-IS-FOOD  is  active,  otherwise,  << (THANK-HOST  (  ))>> 
if  the  production  PLATE-EMPTY  is  active,  or  it  produces 
no  sequencing  at  all. 
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2.1.4   Implementation 

The  implementation  of  the  operators  is  very  straight- 
forward.  The  PS  interpreter  maintains  a   stack  of  units 
corresponding  to  the  CRAPS  description   that  is  in  control 
of  the  sequencing.   Successive  units  are  popped  from  the 
stack  and  applied.   If  the  stack  is  empty,  or  the 
precondition  of  a  simple  unit  is  false,  the  meta-rules 
are  called.  The  algorithm  of  figure  2.1  is  invoked 
whenever  a  rule  is  to  be  selected  from  the  conflict  set. 
The  details  of  the  meta-rule  implementation  can  be  found 
in  the  next  section. 
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Figure  2.1  Implementation  of  CRAPS. 

repeat  forever;  Apply  the  rule  selected  as  follov/s: 

case; 

(Stack  Empty) : 

Set  P  to  meta-rule  choice; 

If  P  not  empty  then  select  P  from  conflict  set; 

else  stop;   end  if; 

(Simple  unit  on  stack) : 

If  the  DNF  of  the  unit  is  true  and  the  rule  name  is  active 
then 

pop  the  stack; 

select  the  rule  name  from  the  conflict  set; 
else 

set  P  to  the  meta-rule  choice; 

if  P  is  not  empty  then  select  P  from  conflict  set; 
else  pop  the  stack;  end  if; 
end  if; 

(Permutation  unit  on  stack) : 
pop  the  stack; 
push  the  appended  argument  sequences  on  stack; 

(Repetition  unit  on  stack) : 

if  the  While  component,  and  the  Until  component  are  both 
empty  then 
pop  the  stack; 

push  argument  sequence  on  stack;  /*  executed  once  */ 
else 
if  While  condition  is  true  and  Until  is  false  then 
push  argument  sequence  on  stack; 
else 
pop  the  stack; 
end  if; 
end  if; 

(Alternation  unit  on  stack) : 
Scan  each  argument  of  unit; 

if  the  DNF  condition  is  true  then 
pop  the  stack; 

push  the  corresponding  argument  sequence; 
end  if; 
end  scan; 

if  none  were  true  then  pop  the  stack; 
esac; 

end  repeat; 
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2.2   Meta-Rules 


There  are  four  types  of  meta-rules  which  assist  a  CRAPS 
description  in  controlling  a  PS.    It  is  the  simple  unit 
which  actually  selects  the  next  rule  to  fire  on  each  cycle 
(the  higher  level  control  units  produce  sequences  of  simple 
units),  and  if  in  the  event  that  the  DNF  expression  evaluates 
to  false  or  the  specified  rule  is  not  active,  the  meta-rules 
are  called  upon  to  suggest  a  list  of  rule  names  to  try. 
For  example,  suppose  that  the  simple  unit  (A  (B  C) )   is 
in  control,  E  was  the  previously   fired  production,  and  the 
current   conflict  set  of  rules  is  {B  D}.   This  situation 
may  be  described  as: 

(1)  A  and  C  should  be  active 

(2)  D  should  (perhaps)  be  inactive 

(3)  {B  D}   is  currently  active 

(4)  E  was  just  fired. 

Accordingly,  the  meta-rules  which  have  been  implemented  are 

designed  to  deal  with  the  four  cases  listed.   In  each  case, 
a  meta-rule  may  suggest  a  list  of  rules  to  try  in  that 
situation.   The  suggestions  are  weighted  since   a  rule   may 
be  suggested  several  times  by  different  meta-rules.  Each 
rule  is  scanned  and  its  LHS  tested;  if  it  evaluates  to 
true,  the  corresponding  RHS  is  executed.  The  exact  defini- 
tions of  the  meta-rules  appear   in  the   next  section. 
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2.2.1   A  BNF  Description  of  the  Meta-Rules 


The  same  conventions  are  followed  as  in  2.1.1, 


<meta-rule> 
<m-LHS> 


:=   [<m-LHS>  -->  <m-RHS>] 

(Want-active  (<atom*>)) 
;=   (Want-inactive  (<atom*>)) 
:=  (Currently-active  (<atom*>)) 

(Just-fired  (<atom*>)) 
;=   (Try-to-fire  (<atom*>)) 
;=  <atom>  <atom*> 
:=  <atom> 

The  following  is  an  example  of  a  meta-rule : 
[ (Want-active (A   C))  --> 

(Try-to-fire  (G) ) ] 
Others  can  be  found  in  Figure  3.3. 


<m-RHS> 
<atom*> 


2.2,2    Definition  of  the  Primitives 

Let   P'   be  a  list  of  rule  names 

J    be  the  rule  fired   on  the  previous  cycle 

D    be  the  union  of  all  the  names  appearing  in  the  DNF 

of  the  current  simple  unit  in  control 
U    be  the  rule  specified  by  the  current  simple  unit 
C    be  the  current  set  of  active  rules. 
The  primitive  function  Want-active  is  a  Boolean  function 
which  tests  the  current  state  of  the  CRAPS  description  and 
the  currently  active  set  of  rules.  It  is  defined  as  follows: 
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(Wan 


[true  i 
t-active  P' )  =  i 


f  P'  c  D  u  {u} 
else  false 


Similarly,  the  other  primitive  functions  are  defined  as 
follows: 


(Want-inactive  P')  = 


(Currently-active  P') 


(Just-fired  P' 


true  if  P'  c  C  -  (D  u  {U}) 
else  false 

true  if  P'c  c 

else  false 
true  if  J  c  p' 
else  false 


The  definitions  are  very  simple  and  so  the  details  of  the 
implementation  are  not  included. 

The  function  Try-to-fire  deposits   a  subset  of  its 
argument  list  of  rule  names  in  a  m.aster  list  (TRYLIST) 
maintained  by  the  interpreter.   All  suggested  rules  must 
be  active.    The  most  often  suggested  rule  is   selected 
for  execution;  in  the  case  of  ties,  preference  is  given  to 
the  rule  name  in  the  current  simple  unit,  U. 

Try-to-fire  is  defined  as: 

Try-to-fire (P ' ) : procedure ; 

TRYLIST:  = 

TRYLIST  u  (p'  n  c);  /*  but  duplicates  remain  */ 
end  ; 
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2 . 3   Analyzing  Sequences 

When  running  a  production  system  to  a  successful 
conclusion,  a  trace  of  the  actions  performed  by  the  PS 
is  generated.   A  series  of  these  traces,  called  input 
trace  sequences ,  are  presented  to  a  system  which  analyzes 
and  produces  CRAPS  descriptions  from  them.   The  input 
sequences,  which  are  described  in  the  next  section,  are 
transformed  to  a  variety  of  intermediate  states  until  a 
final  CRAPS  sequence  is  constructed. 

2.3.1   Input  Trace  Sequences 

The  exact  form  of  an  input  sequence  is  <<Pi  P^  ...  >> 

where  P.  ,  called  a  trace    unit,    is  of  the  form: 
1 

(p:   (P.^  P. 2  ...  P.^,)   (N.^  N.2  ...  N. .^)   (M.^  M.^))  . 

P.   is  the  name  of  the  rule  which  was  applied  on  the 

i    cycle  of  the  execution  of  the  PS  during  the  training 

session.   (P  ■  n  P  ■ -,  ...  P-.  )  is  the  set  of  rules  which 
il   i2       It . 

1  ^j^ 

matched  the  data  environment  during  the  i    cycle.  This  set 

encapsulates   the  data  environment  at  that  point  in  the 

execution,  and  is  used  to  calculate  the  DNF  conditions 

for  the  units  and  the  meta-rules. 

The  third  component  of  the  trace  unit,  (N.,  N.^  ...  N . .  ) 

IX   X  /        -^  i 

is  the  set  of  unique  integers  associated  with  the  instances  of 
data  elements  which  matched  the  pattern  of  the  rule  P^. 
Finally,  (M.,  M   )   is  the  range  of  unique  integers  associated 
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with  all  of  the  data  elements  produced  by  the  action  portion 
of  the  rule  P!.   The  last  two  pieces  of  information  allow  for 
the  construction  of  a  data  flow  graph. 

The  trace  sequence  is  an  exact  history  of  the  execution 
of  the   nondeterministic  program  and  is  therefore  already 
partially  ordered  by  the  'back-dominance  relation.'   Every 
trace  unit  within  the  sequence   is  preceded  by  those  trace 
units  which  produced  data  for  it.   This  partial  ordering 
simplifies  much  of  the  subsequent  analysis  of  the  trace 
sequence. 

Figure   1.2  is  an  example   of  a  trace  sequence 
produced  by  a  run  of  the  binary  tree  scanning  PS. 
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2.3.2   Notation  and  Terminology 

The  algorithms  which  follow  are  presented  in  a  SETL- 
like  language  which  makes  use  of  n-tuple  and   set  notation. 
Lower  case  symbols  in  the  code  represent  key  words  with 
obvious  meanings.   All  sequences  will  be  represented  by 
vectors  whose  enclosing  brackets  are  <  and  >  .   Each  item 
of  a  sequence  is  referenced  by  integer  indices.   The  null 
sequence  is  represented  by  the  symbol  omega.       Calls  to 
subroutines  will  be  denoted  by  prefix  notation  with  arguments 
enclosed  in  parentheses.   The  binary  operators  used  (for 
example  +)  have  various  interpretations  depending  upon 
the  type  of  data  structure  supplied  to  them.   For  example, 
+  can  represent  set  union,  vector  concatenation  or  integer 
addition . 

The  input  trace  units  are  transformed  to  a  variety  of 
intermediate  forms  until  a  final  sequence  of  CRAPS  units 
is  produced.   A  trace  unit  will  be  called  a  T-unit;  a 
sequence  of  trace  units,  a  T-SEQUENCE;  a  sequence  of  units 
in  intermediate  form  an  I-SEQUENCE;  and  a  CRAPS  sequence 
a  C-SEQUENCE.   The  intermediate,  simple,  atom,  permutation, 
repetition  and  alternation  units  will  be  termed, 
respectively,  I-,  S-,  A- ,  P-,  R- ,  and  ALT-units .   Each  type 
of  unit  will  be  represented  by  a  record  type  data  structure 
with  named  components. 
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Declarations : 

T-unit:  {  PNAiME :  atom, 

TRUE-PS:  set  of  atoms, 
IN-LIST:  set  of  integer, 
OUT-LIST:  [1:2]  integer, 
SONS:  [1:]  integer); 

I -unit:  (  NUMBER-PNAME: (NODENUM:  integer, 

PNAIME:  atom)  , 
TRUE-PS:  as  in  T-unit, 
IN-LIST:  as  in  T-unit, 
OUT-LIST:  as  in  T-unit, 
SONS:  as  in  T-unit); 

S-unit:  (  NUMBER-PNAME:  as  in  I-unit, 
TRUE-PS:  as  in  T-unit); 

A-unit:  (  NAME:  atom, 

ORDERING:  integer, 
EQUIVALENTTO:  A-unit, 
SUBSEQNC:  P-unit) ; 

Each  P-,  R-  and  ALT-unit  begins  with  the  signifier 

P.*,  R.*  and  A.*,  respectively.   The  remaining  components 

of  each  are: 

P-unit:   (  SUBSEQUENCES:  [1:(>=2)]  C-SEQUENCE); 

R-unit:  (  LENTH :  integer, 

C-SEQ:  C-SEQUENCE, 

WHILE:  (atom=  'W.*', 

DNF :  Boolean  expression), 

UNTIL:  (atom  =  'U.* ' , 

DNF:  Boolean  expression)  ); 

ALT-unit;   (  [l:(>-2)]  COND :   (  C-SEQ:  C-SEQUENCE, 

DNF:  Boolean  expression)); 

In  the  discussion  of  graphs,  ordinary  graph  notation 
will  be  used.   Nodes,  edges  and  paths  will  be  referenced 
by  subscripted  v's,  e's,  and   p's,  respectively. 
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2.3.3     Algorithms 

2.3.3.1   Top  level  control 

The  top  level  algorithm  repeatedly  reads  in  T-SEQUENCES 
and  processes  each  one  by  calling  a  succession  of  routines. 
It  begins  by  constructing  a  graph  which  identifies  all  of  the 
data  dependencies  within  a  sequence.   This  graph  is 

then  linearized  by  the  permutation  routine  to  obtain 
a  preliminary  description  of  the  sequence.  The  repetition 
algorithm  is  then  called  to  produce  descriptions  which 
possibly  contain  R-units.   All  sequences  read  in  are 
processed  in  this  fashion,  producing  a  set  of  descriptions 
which  are  input  to  the  alternation  detection  algorithm. 
The  final  output  is  a  CRAPS  description.   See  Figure  2.2 
for  complete  details  of  this  algorithm.   An  example  of 
an  actual  run  of  the  system  is  exhibited  in  Appendix  2. 

Note  that  constructing  units  in  this  order  prohibits 
the  appearance  of  alternation  within  a  repetition  and 
permutation.   Because  of  the  difficulty  of  the  pattern 
analysis  considered  here,  less  powerful  CRAPS  descriptions 
are  generated  than  can  be  specified  in  the  language.   A 
discussion  of  these  points  is  deferred  until  Chapter  3. 
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Figure  2.2:  Top  level  control, 


DESCRIBEO:  procedure; 

NODE-COUNT:  integer;  /*assignment  of  unique  node  numbers*/ 
PCOUNT:  integer;  /*assignment  of  artificial  ordering*/ 
PROD-NAMES:  set  of  atoms;  /*production  names*/ 
PSTARNAMES:  set  of  A-units; 

VISITED:  [1:]  I-SEQUENCE;  /*indexed  by  node  numbers  and  used 
for  linear  sequence  constructed  from  DAG*/ 
NODEPTRS:  [1:]  I-unit;  /*indexed  by  node  numbers*/ 
ND:  [1:]  integer;  /*  numbers  assigned  to  nodes  of 

DAG  for  Tarjan's  algorithm*/ 
DFSN :  [1:]  integer;  /*depth  first  spanning  tree  numbers  for 

the  algorithm*/ 
DFSNUMBER:  integer;  /*used  for  values  of  DFSN*/ 
SEQ:  T-SEQUENCE  or  I-SEQUENCE  or  C-SEQUENCE  or  atom; 
DESCS:  set  of  I-SEQUENCE; 

ENVIRONS:  set  of  pairs  of  sets;  /*for  meta-rule  construction*/ 
MADE-ACTIVE:  like  ENVIRONS; 
MADE-INACTIVE:  like  ENVIRONS; 
JUST-FIREDS:  like  ENVIRONS; 

/*  Initialization  */ 

PCOUNT  :=  0; 


DFSNUMBER  := 

=  0 

NODE-COUNT  : 

= 

0; 

PSTARNAMES  : 

= 

{}; 

PROD-NAMES 

= 

{}; 

DESCS  :=  {}; 

ENVIRONS  := 

{) 

MADE-ACTIVE 

:  = 

'{} 

; 

MADE-INACTIVE 

:  = 

{}; 

JUST-FIREDS 

:  = 

{} 

» 

/*  MAIN  INPUT  LOOP  */ 

repeat  while (  SEQ  \=  omega  )  doing (  read (SEQ)  ); 

/*  We  assume  production  names  have  an  ORDERING  component.  */ 

if  SEQ  is  a  production  name  then 
SEQ. ORDERING  :=  PCOUNT; 
PCOUNT  :=  PCOUNT  +  1; 

else 

/*  Preparation  for  processing  an  input  trace  sequence.  */ 

LENTH  :=  length (SEQ) ; 
VISITED[1:LENTH]  :=  omega; 
NODEPTRS ll:LENTH]  :=  omega; 
DFSN(1:LENTH]  :=  0; 
ND(l:LENTHl  :=  0; 

/*  Assign  unique  node  numbers  to  each  T-unit  */ 

SEQ  :=  CHANGEP-FIRED(SEQ) ; 

/*  Construct  the  DAG  and  Meta-rules.  */ 
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SEQ  :=  INTERVAL-OF-EXIT(SEQ) ; 

/*  Construct  permutation  units  */ 

SEQ  :=  CONSTRUCT-P* (SEQ) ; 

/*  Repetition  detection.  Notice  ()  is  sent  as  the 
second  argument  since  SEQ  is  not  followed  by  any 
unit.   See  REPEATS  for  a  description  of  this.*/ 

SEQ  :=  REPEATS (SEQ, 0 ) ; 
NODECOUNT  :=  LENTH  +  NODECOUNT; 
DESCS  :=  DESCS  +   {SEQ} ; 

end  if  SEQ; 

end  repeat; 

/*  FINAL  PROCESS  */ 

/*  We  now  collapse  all  of  the  sequences  into  one  CRAPS 
description,  */ 

SEQ  :=  ALTERNATIVES (DESCS) ; 

/*  All  of  the  atom  units  are  replaced  by  their  corresponding 
permutations.   The  following  routine  is  a  simple  scanning 
procedure  which  does  the  replacement.  It  is  not  shown.  */ 

SEQ  :=  REPLACE-ATOMS{SEQ) ; 

/*  We  can  now  remove  the  numbering  of  simple  units  and  the 
lengths  within  the  repetitions.   The  numbering  was 
necessary  for  duplicates  within  the  permutations.  All  such 
duplicates  can  now  be  removed  also.   The  following  is  a 
simple  scanning  routine  which  does  the  removal  and  is  not 
shown.   */ 

SEQ  :=  REMOVENUMSANDDUPS (SEQ) ; 
/*  The  description  and  meta-rules  have  been  constructed  so...  */ 

pr  int (SEQ, ENVIRONS, MADE-ACTI VE , MADE-INACTIVE , JUST-FIREDS  )  ; 
end  DESCRIBE; 
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2.3.3.2   DAG  Routines 

The  input  sequence  is  scanned  and  a  unique  number  is 
assigned  to  each  instance  of  a  rule  application  in  the 
T-units.   A  Directed  Acyclic  Graph  (DAG)  is  then  constructed 
with  nodes  (indexed  by  the  unique  numbers)  corresponding 
to  rule  applications  and  edges  representing  the  flow  of 
data  from  one  rule  to   another.   This  DAG  is  constructed 
in  an  obvious  manner  from  the  IN-LIST  and  OUT-LIST  components 
of  the  T-units.   It  is  assumed  that  the  last   unit  in  the 
sequence  signalled  success  of  the  problem  solution  and 
therefore  its   corresponding  node  is  interpreted  as  the 
unique  sink  node  of  the  DAG  (see  page  63  for  examples) . 

The  DAG  completely  specifies  all  of  the  data  dependencies 

between  rules  and  therefore  all  of  the  possible  execution 

sequences.   In  general,  an  arc  from  node  v-  to  node  v. 

indicates  a  concatenation  of  the  subsequence  associated 

with  V.  (leading  to  and  including  v.)  with  the  unit 

associated  with  node  v.. 

1 

The  DAG  is  first  cleansed  of  irrelevant  arcs,  called 

forward  arcs.   An  arc  e,  from  node  v.  to  node  v.  is  a  forward 

arc  if  there  is  some  directed  path  p  from  v.  to  v .  which 

ID 

does  not  include  e  as  an  intermediate  arc.   A  forward  arc 

specifies  that  node  v.  must  precede  v.  and  that  node  v. 
^  1      '^        j  1 

precedes  the  nodes  on  path  p.   Since  the   nodes  on  path  p  enter 

v.  ,  they  too  must  precede  v..   Clearly,  the  forward  arc 

is  redundant  and  can  be  removed  from  the  DAG,  which  prohibits 
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the  construction  of  irrelevant  permutations. 

The  forward  arc  removal  algorithm  is  due  to  R.  Tarjan 
[43,44,45].   It  proceeds  as  follows: 

Let  DFSN(i)  be  a  Depth-first  Spanning  Tree  numbering 
assigned  to  node  i  beginning  the  numbering  from  the  sink 
node  of  the  graph.   Let  ND(i)  be  the  sum  of  the  numbers 
assigned  to  the  immediate  predecessors   of  node  i.  Then 
there  is  a  path  p   from  v.  to  v .  iff  DFSN(i)  <  DFSN(j) 
<_   DFSN  (i) +ND  (i)  .   Given  a  node  v  and  the  set  of  entering 
edges,  it  is  easy  to  check  from  this  inequality  which  edges 
are  forward  arcs.   For  any  two  immediate  predecessors,  v. 
and  V.  ,  if  the  above  inequality  holds,  then  the  edge  from 
V .  to  v   can  be  deleted.  Figure  2.3  contains  complete 
details  of  the  algorithm. 
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Figure  2.3:  DAG  construction  and  cleansing. 

CHANGEP-FIRED{SEQ) :  procedure; 
SEQ:  T-SEQUENCE; 

CNTR  :=  0; 

1  <=  forall  1  <=  #SEQ; 

/*  The  PNAME  component  is  replaced  by  a  NUMBER-PNAME 
component  producing  I-units.  */ 

SEQ[i]. PNAME  :=  <CNTR,  SEQ [ i] .PNAME > ; 
CNTR  :=  CNTR  +  1; 

end  forall  i ; 

end  CHANGEP-FIRED; 

INTERVAL-OF-EXIT(SEQ) :  procedure; 

SEQ:  I-SEQUENCE; 

/*  The  last  unit  of  SEQ  is  assumed  to  be  the  unique  sink 
of  the  DAG  to  be  constructed  by  this  routine.  SEQ  is 
partially  ordered  by  the  back-dominance  relation.  */ 

#SEQ  >=  forall  i  >=  1; 

NODEPTRS[SEQ[il .NODENUM]  :=  SEQ[il; 

#SEQ  >=  forall  j  >  i; 

if  exist?  n  in  SEQ [ i]  tn-lIST  such  that 
SEQ[]]  .OUT-LIST[ir 

<=  n  <=  SEQ[ j] .0UT-LIST[2] 
then 
SEQ[i].SONS  :=  SEQ[i].SONS 

+  <SEQ[j] .NODENUM>; 
end  if; 

end  forall  j; 

/*  Meta-rule  construction  is  done  at  this  point,  see  figure 
2.7.   The  definitions  in  section  2.2  suggest  simple  set 
expressions  between  the  data  environments (confl ict  sets) 
between  successive  input  units.  */ 

CONSTRUCT-M-RULE (SEQ[i-ll ,SEQ[i] ) ; 

end  forall  i; 

return  CLEAN (SEQ) ; 

end  INTERVAL-OF-EXIT; 

CLEAN (SEQ):  procedure; 

SEQ:  I-SEQUENCE; 

/*    IN-LIST   and   OUT-LIST   components    are   no    longer    useful.    */ 
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1  <=  forall  i  <=  #SEQ; 

SEQ[i] ,IN-LIST  :=  omega; 

SEQ[i] .OUT-LIST  :=  omega; 
end  forall  i; 

/*  We  are  now  ready  to  process  the  DAG  after  we  have  reversed 
SEQ  so  that  the  sink  node  is  first.  */ 

SEQ  :=  reverse(SEQ) ; 

/*  Now  we  use  Tarjan's  algorithm  to  remove  forward  arcs.*/ 

REMOVEFWDARCS (SEQ) ; 
SEQ  :=  reverse{SEQ) ; 
return  SEQ; 

end  CLEAN; 


REMOVEFWDARCS (SEQ) :  procedure; 

SEQ:  I-SEQUENCE; 

/*  Tarjan's  algorithm.  */ 

DFSNUMBER  :=  1; 
DEPTH-FIRST-SEARCH  (SEQ  [1 ]  )  ; 

1  <=  forall  i  <=  #SEQ; 

if  #SEQ[i].SONS  >=  2  then 

forall  childl  in  SEQ[i].SONS; 

forall  child2  in  SEQ[i].SONS  -  (childl}; 

if  TARJAN-INEQUALITY (childl, child2)  then 

/*  remove  the  arc  ,  childl  =  omega  */ 
SEQ[i].SONS  :=  SEQ[i].SONS  -  {childl}; 

end  if; 

end  forall  child2; 

end  forall  childl; 

end  if; 

end  forall  i; 

end  REMOVEFWDARCS; 

TARJAN-INEQUALITY  (N1,N2)  :  procedure; 

N1,N2:  integer;  /*  node  numbers  */ 

if  DFSNlNl]  <=  DFSN[N2]  <=  DFSN[N1]  +  ND[N1] 
then 

return  true 
else  return  false; 
end  if; 

end  TARJAN-INEQUALITY; 
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DEPTH-FIRST-SEARCH (UNIT) :  procedure; 

UNIT:  I-UNIT; 

if  DFSN[UNIT.NODENUM]  =  0 
then 

DFSN[UNIT.NODENUM]  :=  DFSNUMBER; 
DFSNUMBER  :=  DFSNUMBER  +  1; 
V,  ND[UNIT.NODENUM]  :=  1  + 

+  : {DEPTH-FIRST-SEARCH (NODEPTRS [s]  )  ! 
forall  s  in  UNIT. SONS}; 
return  v; 
else  return  0 
end  if; 

end  DEPTH-FIRST-SEARCH; 
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2.3.3.3   Permutation  Routines 

The  construction  of    permutations  is  based  on  the 
observation  that  if  a  node  has  two  or  more  entering   edges 
then  the  subsequences  associated  with  its  predecessors  can 
be  permuted.   The  partial  ordering  makes  this  construction 
straightforward.   Using  a  simple  sequential  scan,  it  is 
assured  that  the  sequences  associated  with  its  predecessors 
have  already  been  constructed  when  a  node  is  to  be 
processed. 

Forward  arc  removal  prevents  an  irrelevant  permutation 
from  being  constructed.   Consider  the  following  DAG  (we  have 
removed  the  TRUE-PS  field  for  simplicity) : 


(2  .  p2) 


When  node  v   is  to  be  processed,  the  following  subsequence 
would  be  constructed:   <<(P.*  <<v^   v^>>    <<v^>>)  v^>>  .   The 
permutation  is  obviously  irrelevant  and  if  arc  e  were  ignored 
then  the  subsequence  constructed  would  be«v-j^  v^   v^>>  , 

The  permutations  are  further  processed  by  first 
factoring  out  common  leading  subsequences  and  then  applying 
the  repetition  detection  procedure   so  that  equivalences 
with  other  permutations  could  be  more  easily  recognized. 

Consider  the  following  graph: 


v^:  (1  .  pi)- 


Vo :  (3  .  p3)- 


-^^2'     ^^  •  P^^ 


_j.v.:  (4  .  p3) 


y^:  (5  .  p5) 
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The  subsequences  associated  with  nodes  v,  ,  v^  ,  v^  and  v. 

are,  respectively,  <<v  >>,  <<v,  ^2^^'    ^^^1   ^z^^'    "^'^'^l  ^3  '^4^'^' 
When  processing  v_  the  following  would  be  constructed: 
<<(P.*  <<v,  v^>>  <<v,  v^  v.>>)  Vt.>>.   Each  of  the  subsequences 
begins  with  node  v^ .   By  definition  of  permutation,  this 
is  equivalent  to  <<v^(P.*  <<V2>>  <<v   v^>>)  v^>>.   This 
final  form   is  less  complex  and  more  closely  represents 
the  control   information  in  the  DAG.   Notice  that  if  v^ 
were  instead   ( 6  .  P2)   we  could  not  factor  out  nodes   v^ 
and  v^  since  they  are  distinct  instances  of  applying  rule  p2 
and  could  not  be  identified  as  the  same.   The  final  permu- 
tation can  be  further  condensed  by  replacing  the  subsequence 
<<v-,  v->>  by  an  R-unit  specifying  a  repetition  of  p3. 

The  permutation  units  are   then  replaced  by   unique 
A-units  after  being  normalized  by  a  lexicographical  ordering 
of  the  argument  subsequences.   The  new  A-units  are  then 
collected  in  a  list  and  compared  with  previous  A-units  for 
equivalence.   Normalizing  makes  this  search  considerably 
easier;  replacing  all  equivalent  A-units  by  a  single  one 
makes  the  repetition  detection   procedure  considerably  faster. 
When  looking  for  repeating  subsequences,  the  only  units 
that  can  be  compared  to  a  permutation  is  another  such  permu- 
tation.  For   example,  given  <<(P.*  <<B>><<A>>) A>>  where 
A  and  B  are  arbitrary  units,  the  inner  subsequence  <<A>> 
cannot  be  viewed  as  a  repetition  with  the  outer  unit  A  because 
of  the  presence  of  B  within  the  P-unit.   The  B  must  precede 
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the  outer  A  and  in  particular  can  occur  between  the  two 
occurrences  of  A.   See  Figure  2.4  for  complete  details  of 
these  algorithms. 
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Figure  2.4.  Permutation  Construction. 

CONSTRUCT-P* (SEQ) :  procedure; 

SEQ:  I-SEQUENCE; 

/*  CURRENT  accumulates  the  linear  sequence.  */ 

CURRENT  :=  omega; 

1  <=  forall  i  <=  #SEQ; 

NN  :=  SEQ[i] .NODENUM; 

/*  The  following  assures  us  that  unique  node  numbers 
will  be  assigned  to  all  production  names  in  every 
instance  of  a  trace  unit  in  which  it  occurs.  */ 

SEQ  [i]  .NODENUM  :=  NODECOUNT  +  NN; 

/*  If  this  node  has  no  sons,  it  was  preceded  by  nothing 
which  produced  input  for  it  in  the  sequence  and  it 
is  appended  to  no  other  sequence  constructed. 
Notice  that  when  a  node  is  placed  in  the  linear 
sequence,  the  SONS  field  (arcs)  are  removed.  */ 

if  SEQ(i].SONS  =  omega  then 
SEQ( i] .SONS  :=  omega; 
CURRENT  :=  <SEQ[i] >; 

/*  If  it  has  only  one  son,  then  a  simple 
concatenation  is  performed.  */ 

else  if  #SEQ[i].SONS  =  1  then 

CURRENT  :=  VISITED[s  in  SEQ [ i] . SONS ] ; 
SEQ[i].SONS  :=  omega; 
CURRENT  :=  CURRENT  +  <SEQ[i]>; 
else 

/*  a  P-unit  is  to  be  constructed.  */ 

CURRENT  :=  +:{  {VISITED[sl)   ! 

forall  s  in  SEQ[i).SONS  }; 

/*  factor  out  common  leading  subsequences.  */ 

FACTOR (CURRENT, PREFIX) ; 
SEQ [i]. SONS  :=  omega; 

/*  CURRENT  will  become  the 

SUBSEQUENCES  component  of  the  newly 
formed  P-unit  after  repetition  detection 
is  applied.  */ 


CURRENT 


NEWUNIT 


+:<  <REPEATS (S,SEQ1 i) ) >  ! 

forall  s  in   CURRENT  >; 
heap (P-unit) ; 


NEWUNIT. SUBSEQUENCES  :=  CURRENT; 
CURRENT  :=  PREFIX  + 

<PSTARS (NEWUNIT) > 
+ 
<SEQli] >; 
end  if  #SEQ[ i) .SONS; 
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end  if  SEQ[I] .SONS  =  omega; 

VISITED[NN]  :=  CURRENT; 

end  forall  i: 

/*  The  final  value  of  CURRENT  is  the  subsequence 

associated  with  the  last  unit  of  the  sequence  which 
is  assumed  to  be  the  unique  sink  node  of  the  DAG. 
Notice  how  extraneous  nodes  in  the  graph  will  auto- 
matically be  lost  since  they  would  not  be  part  of  the 
sequence  associated  with  the  sink.   A  node  is  extraneous 
if  it  does  not  contribute  to  the  solution  sequence,  i.e., 
it  does  not  lie  on  any  path  terminating  at  the  sink  node.*/ 

return  CURRENT; 

end  CONSTRUCT-P*; 


FACTOR{CURRENT, PREFIX) :  procedure; 

CURRENT:  set  of  I-SEQUENCE; 
PREFIX:  I-SEQUENCE; 

PREFIX  :=  omega; 

TARGET  :=  any  one  in  CURRENT; 

CURRENT  :=  CURRENT  -  {  TARGET  }; 

repeat  while(forall  seq  in  CURRENT,  seq[ll  =  TARGET[1]); 
PREFIX  :=  PREFIX  +  <TARGET[1]>; 
TARGET  :=  TARGET [2:]; 

forall  s  in  CURRENT; 

s  :=  s  [2:  ]  ; 
end  forall  s; 

end  repeat; 

end  FACTORS; 

PSTARS (PUNIT) :  procedure; 

PUNIT:  P-unit;  /*  newly  formed.  */ 

/*  An  ordering  is  imposed  on  all  atoms.  This  ordering 
is  used  for  normalizing  P-units.  The  lexicographic 
sorting  routine  has  an  obvious  algorithm  and 
is  not  shown.  */ 

PUNIT. SUBSEQUENCES  :=  lex-sort (PUNIT. SUBSEQUENCES) 

/*  FINDTRUES  is  a  simple  routine  which  finds  the 

collection  of  productions  which  were  true  on  enter- 
ing the  production  contained  in  the  first  unit  of 
the  permutation.  It  is  also  capable  of  finding  the 
same  for  a  sequence  of  simple  units  or  for  the 
argument  sequence  of  an  R-unit.  It  is  used  in  several 
places  throughout  the  code  and  is  not  shown  explicitly.*/ 

TRPS  :=  FINDTRUES (PUNIT) ; 

/*  If  PSTARNAMES  is  empty,  then  we  cannot  compare 
this  P-unit  with  any  other.   We  call  P*FIXUP  which 
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generates  new  A-units.  */ 

if  PSTARNAMES  =  {)  then  return 

P*FIXUP(PUNIT,TRPS) ; 
end  if; 

/*  Lexico-equivalent  is  a  Boolean  function  which 
compares  two  sequences  for  lexicographic  equiva- 
lency.    Using  lexico-equivalency  allows  for 
R-units.  The  code  for  lexico-equivalent  is  not 
shown. 

In  what  follows,  we  search  PSTARNAMES  for  another 
P-unit  which  is  equivalent  to  the  one  being 
formed.  The  canonizing  makes  this  checking  easier 
since  we  do  not  have  to  compare  every  pair  of 
sequences.  If  one  is  found,  both  are  replaced 
by  a  new  A-unit  which  represents  both.  Notice, 
EQUIVSEQ  is  used  to  construct  a  'merged'   seq- 
uence of  each  of  the  permutable  subsequences. 
See  the  repetition  routines  for  details  of  what 
EQUIVSEQ  does.  */ 

if  exists  name  in  PSTARNAMES  such  that 
1  <=  forall  i  <=  iPUNIT. SUBSEQUENCES, 

lexico-equivalgn^^Pyg^^^§l|gS|8ygggg|^^^^ [ i) ) 

then 

1  <=  forall  j  <=  #PUNIT. SUBSEQUENCES; 
PUNIT.SUBSEQUENCES[ j]  := 

EQUIVSEQ(PUNIT.SUBSEQUENCES[j] , 
1, 

NAME.SUBSEQUENCES[ j) , 

1, 

CURRENTLN(NAME. 

SUBSEQUENCES [jl ) , 
DUMMY) ; 
end  forall  j; 

NAME.SUBSEQNC  :=  PUNIT; 
NAME. TRUE-PS  : =  NAME. TRUE-PS  +  TRPS; 
NEWNM  :=  P*FIXUP (PUNIT , NAME . TRUE-PS) ; 
•   NEWNM. EQUIVALENTTO  :=  NAME; 

NEWNM. ORDERING  :=  NAME . ORDERING; 

return  NEWNM; 

end  if; 

/*  If  no  equivalent  A-unit  was  found,  we  construct  a 
new  one  by  calling  P*FIXUP.  */ 

return  P*FIXOP (PUNIT , TRPS) ; 

end  PSTARS; 
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P*FIXUP(PUN,TRPS) :  procedure; 

PUN:  P-unit; 

TRPS:  set  of  atoms; 

/*  This  routine  generates  new  atom  units.  */ 

NNAME  :=  heap ( A-unit) ; 

NNAME.SUBSEQNC  :=  PUN; 

NNAME. TRUE-PS  :=  TRPS; 

NNAME. ORDERING  :=  PCOUNT; 

NNAME. EQUIVALENTTO  :=  NNAME; 

PCOUNT  :=  PCOUNT  +  1; 

PSTARNAMES  :=  PSTARNAMES  +  {  NNAME  ); 

return  NNAME; 

end  P*FIXUP; 
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2.3.3.4   Repetition  Routines 

The  next  process  is  the  detection  of  repeating 
subsequences  and  replacement  of  such  sequences  by   repetition 
units.   Unlike  the  permutation  detection  problem,  which  is 
well-defined   and  solved  by  the  algorithm  described  above, 
some  sequences  may  have  several   equally  acceptable  descrip- 
tions  which  use  the  repetition  operator.   In  fact,  the 
corresponding  minimization  problem  is  NP-complete  in  the 
general  case  (see  Section  1.4.2).   The  algorithm  that  we 
use  gives  one  description.   It  employs  a  helpful  heuristic 
with  a  'divide  and  conquer'  flavor. 

The  sequence  is  scanned  to  identify  all  single  occur- 
rences of  A-units  or  rule  names  in  S-units.   All  such 
occurrences  cannot  be  part  of  a  repetition  and  thus  divide 
the  sequence  into  shorter  subsequences  to  which  the  same 
procedure  can  be  applied  recursively.   Once  a  candidate 
subsequence  is  found  (every  atom  in  it  occurs  at  least  twice) 
a  left  to  right  scan  is  applied  repeatedly  to  find  equivalent 
adjacent  subsequences  (beginning  with  the  shorter)  and  to 
replace  them  with  R-units.   The  procedure  stops  when  it 
considers   sequences  whose  lengths  are  greater  than  one-half 
the  current  length  of  the  sequence.   The  maximum  length 
of  subsequences  we  have  to  consider  decreases  when  repeti- 
tions are  constructed. 

The  length  of  a  sequence  differs  from  the  length  of  the 
tuple  encoding  the  sequence  because  of  the  appearance  of 
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arbitrarily  complex  units.   For  example,  the  length  of  the 

following  sequence  as  an  n-tuple  is  3  yet  its  length  as 

a  CRAPS  sequence  is  5:  <<A  (R.*  3  <<BCd>>(W.*  (  ))(U.*  ()))  E>> 

The  while    and  until    components  of  R-units  are  computed 
from  the  TRUE-PS  field  of  the  S-units.   A  while  condition 
is  interpreted   to  be  all  of  the  active  productions  common 
to  every  entry  of  the  repeating  subsequence  which  are   not 
active  on  exiting  from  the  subsequence.   An  until  condition 
is  the   opposite;  everything  that  is  active  on  exit  but 
which  was  never  active  previously. 

The  critical  aspect  of  this  procedure  is  the  equivalence 
of  two  sequences.   Our  interpretation  is  that  the  sequences 
must  be  lexicographically  equal  (the  same  names  of  A-units 
or  production  names  of  S-units  appear  in  order)  and  aligned 
on  a  'unit-boundary',  that  is,  one  sequence  cannot  start  within 
an  R-unit  appearing  at  the  end  of  the  other.  When  two  equivalent 
sequences  are  detected,  a  third  sequence  is  constructed  which 
is  a  merging  of  the  R-units  appearing  in  both. 

For  example, 

<<A  (R.*  <<B>>(W.*  (  ))  (U.*  (E)))  C>> 
and 

<<A  B  (R.*  <<C>>  (W.*  (G))  (U.*  (  )))>> 
are  equivalent,  and  are  merged  to  the  sequence 

<<A  (R.*  <<B>>(W.*  (  ))(U.*(E)) 

(R.*  <<C>>  (W.*  (G))   (U.*  (  )))  >>. 
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Although  merging  sequences  has   the  potential  of 
generating  many  more  control  statements  than  we  might  want, 
we  have  found  that  the   while   and   until   conditions  will 
keep  this  to  a  manageable  number  (however,  it  is  possible 
that  empty  conditions  are  computed).   In  fact,  whenever 
a  merge  of  two  sequences  occurs,  we  compute  new  while   and 
until   conditions  for  any  R-units  that  are  merged,  which 
reflects  the  conditions  appearing  in  both  units.   This  will 
mask  out  any  erroneous  iterations  when  the  description  is 
used  in  controlling  a  PS.   See  Figure  2.5  for  the  details 
of  this  entire  process. 
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Figure  2.5.  Repetition  Detection. 


REPEATS  (SEQ,NXTUNIT)  :  procedure; 

SEQ:  I-SEQUENCE; 

NXTUNIT:  I-unit;  /*  NXTUNIT  is  the  unit  which  follows 
SEQ  and  which  is  used  to  calculate  the 
WHILE  and  UNTIL  conditions  for  any  sub- 
sequences found  repeating  at  the  end  of  SEQ.*/ 

if  SEQ  =  omega  then  return  omega;  end  if; 

NEWS  :=  omega; 
TEST  :=  SEQ[#SEQ] ; 

/*  Through  a  simple  hashing  scheme,  the  positions  (ordered) 
of  those  units  whose  productions  (or  EQUIVALENTTO  names 
in  the  case  of  A-units)  appearing  only  once  in  SEQ, 
can  be  found  easily.   We  split  SEQ  into  portions  delimited 
by  the  unique  units  and  recursively  apply  the  same  process 
to  those  portions.  The  FINDUNIQUES  routine  is  not  shown.*/ 

UNIQUES  :=  FINDUNIQUES (SEQ) ; 
if  #UNIQUES  =  #SEQ  then  return  SEQ;  end  if; 
if  UNIQUES  \=  omega 
then 

repeat  while (UNIQUES  \=  omega); 
FIRST  :=  UNIQUES[1] ; 
UNIQUES  :=  UNIQUES [2:]; 
HOLD  : =  SEQ[1:FIRST-1] ; 
FUNIT  :=  SEQ[FIRST1 ; 
SEQ  :=  SEQ[FIRST+1 : ] ; 
NEWS  :=  NEWS  +  REPEATS (HOLD , FUNIT) 
+  <FUNIT>; 
end  repeat; 

if  FUNIT  =  TEST  then  return  NEWS; 
else  return 

NEWS  +  REPEATS (SEQ, NXTUNIT) ; 
end  if; 

end  if; 

/*  Everything  in  SEQ  appears  at  least  twice  so  we  scan 
for  repeating  subsequences.   */ 

for  len  :=  i  by  1  repeat; 

if  CURRENTLN (SEQ)  /  2  <  len  then  return  SEQ;  end  if; 

/*  TRAIL,  LEFT  and  RIGHT  are  scanning  pointers.  */ 

TRAIL  :=  0; 
LEFT  :=  1; 

/*  ADVANCE  positions  a  pointer  some  distance  away  from 
the  first  argument  (another  pointer).  This  distance 
is  some  number  of  units  which  encode  a  subsequence  of 
length  len  (the  second  argument).  The  appearance  of  R-units 
makes  this  slightly  difficult.   Consider  the  following: 
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<A,  B,  (R.*  <  C,A  >),B,C  >.   When  LEFT  is  1  and  len  is  3 
the  pointer  cannot  be  positioned  because  of  the  inner 
R-unit.   Obviously,  <A,B,C>  is  not  a  repeating  subsequence 
because  it  is  not  aligned  on  a  'unit'  boundary.  The 
third  argument  to  ADVANCE  is  set  to  true  if  the  positioning 
problem  occurs.   ADVANCE  returns  omega  as  value  if  the 
positioning  is  possible  but  the  remaining  length  of  the 
sequence  from  that  position  is  less  than  len. 

The  code  for  ADVANCE  is  simple.  It  uses  a  scan  of  the  top 
level  of  the  sequence  keeping  count  of  the  cumulative 
length.  When  the  length  is  equal  to  len  it  returns  success 
of  positioning  but  then  goes  on  to  test  the  remaining 
length.  The  code  for  ADVANCE  is  not  shown.  */ 

repeat  while  {  RIGHT  \=  omega  )  doing  ( 

RIGHT  :=  ADVANCE(LEFT, len, FLAG, SEQ) ) ; 

if  FLAG  then  /*  the  positioning  cannot  be  done*/ 

TRAIL  :=  LEFT; 

LEFT  :=  LEFT  +  1 ; 

continue  outerloop  for  len  =  1  by  1 ; 
end  if; 

/*  EQUIVSEQ  returns  a  'merge'  sequence  of  two 

sequences  if  they  are  equivalent.  It  is  explained 
in  the  following  sections  of  code.  */ 

MERGE  :=  EQUIVSEQ (SEQ, LEFT , SEQ , RIGHT , len .LASTPOS)  ; 

/*  If  we  found  a  repeating  subsequence  we  look  for 
more  by  calling  the  next  routine.  All  variables  in 
this  routine  are  global  to  the  following  call.  */ 

if  MERGE  \=  omega 
then 
SUB-SCAN-LOOP  0 ; 

HOLD  :=  SEQlLASTPOS+1:] ; 

/*  COLLAPSE  creates  a  new  R-unit.  INTSCT,  UNYUN  and 
LASTPOS  get  values  from  SUB-SCAN-LOOP. 

Notice  in  the  call  to  COLLAPSE  a  conditional  expression 
appears.  HOLD   equal   to   omega   implies  we  found   a 
repeating  subsequence  at  the  end  of  SEQ.  Therefore 
we  send  NXTUNIT  to  COLLAPSE  to  compute  the  conditions 
for  the  new  R-unit.  Otherwise  we  just  send  the  first 
unit  of  HOLD.  */ 

NEWSEQ  :=  COLLAPSE (MERGE , INTSCT , UNYUN , len , 
(if  HOLD=omega  then  NXTUNIT 
else  H0LD[1]  end  if)  ) ; 
if  TRAIL  =  0  then 

SEQ  : =  NEWSEQ  +  HOLD; 

TRAIL  :=  1; 

LEFT  :=  2; 
else 

SEQ  :=  SEQ[1:TRAIL]  +  NEWSEQ  +  HOLD; 

LEFT  :=  TRAIL  +  2; 

TRAIL  :=   TRAIL  +  1; 
end  if  TRAIL; 

else  /*  MERGE  is  equal  to  omega  */ 
TRAIL  :=  LEFT; 
LEFT  : =  LEFT  +  1; 
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end  if  MERGE; 
end  repeat  while  (RIGHT; 
end  for  len; 
end  REPEATS; 

SUB-SCAN-LOOP  0  :  procedure; 

/*  All  variables  within  REPEATS  are  known  here.  */ 

RYTE  :=  LASTPOS  +  1; 

/*  INTSCT  and  UNYUN  collect  the  information  needed  to  compute 
the  WHILE  and  UNTIL  conditions.  They  simply  accumulate  the 
intersection  and  union,  respectively,  of  the  set  of  FINDTRUES 
for  each  instance  of  the  repeating  subsequence. 

LASTUNIT  is  a  simple  routine  which  returns  the  last  unit 
appearing  in  a  subsequence  of  a  certain  length.  It  is  a  simple 
scanning  and  counting  algorithm  which  is  not  shown.  */ 

INTSCT  :=  FINDTRUES (SEQ [LEFT] )  *  FINDTRUES (SEQ [RIGHT] ) ; 
UNYUN  :=  FINDTRUES (LASTUNIT(SEQ, LEFT, len) )  + 

FINDTRUES (LASTUNIT (SEQ , RIGHT , len) ) ; 
repeat  while (  MERGER  \=  omega  ) 
doing  ( 

MERGER  :=  EQUIVSEQ (MERGE , 1 , SEQ, RYTE , len .ATLAST) ) ; 
MERGE  :=  MERGER; 
LASTPOS  :=  ATLAST; 
INTSCT  :=  INTSCT  * 

FINDTRUES (SEQ [RYTE] ) ; 
UNYUN  :=  UNYUN  + 

FINDTRUES (LASTUNIT (SEQ , RYTE , len) ) ; 
RYTE  :=  LASTPOS  +  1; 
end  repeat; 

end  SUB-SCAN-LOOP; 

CURRENTLN(SEQ) :  procedure; 
SEQ:  I-SEQUENCE  of  S- ,  A-  and  R-units; 
CNTR  :=  0; 

1  <=  forall  i  <=  #SEQ; 

if  SEQ[i]  is  an  S-unit  or  A-unit  then  CNTR  :=  CNTR  +  1; 

else 

CNTR  :=  CNTR  +  SEQ [ i] . LENTH ; 

end  if; 
end  forall; 

return  CNTR; 
end  CURRENTLN; 
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EQUIVSEQ(S1,P1 ,S2,P2,LEN,LAST) :  procedure; 

S1,S2:  I-SEQUENCES;  /*  Sequences  being  scanned  for 

equivalency.  */ 
P1,P2:  integer;  /*  pointers  into  SI  and  82  */ 
LEN:  integer;  /*  length  of  subsequence  being  compared  */ 
LAST:  integer;  /*  pointer  indicating  last  top  level  unit 
in  S2  scanned  during  the  comparison.  */ 

/*  EQUIVSEQ  is  a  recursive  comparing  routine.  It  compares 
two  sequences,  81  and  S2,  at  positions  PI  and  P2  of 
(CURRENTLN)  length  LEN  and  returns  a  merge  sequence 
of  the  two  if  they  were  equivalent.   LAST  is  set  to 
the  last  position  scanned  in  82  during  the  compare. 

The  comparison  precedes  as  follows:   Two  8-units  are 
equivalent  if  their  PNAME ' s  are  equal.  Two  A-units 
are  equivalent  if  they  are  EQUIVALENTTO  the  same  A- 
unit.  An  R-unit  is  equivalent  to  some  subsequence  if 
its  C-SEQ  component  is  equivalent  to  that  subsequence. 
Follow  the  code  carefully  for  the  R-unit  comparison 
to  see  how  the  recursion  works. 

The  merged  sequence  returned  is  com.puted  as  follows: 
If  two  equivalent  S-  or  A-units  were  detected,  a  copy 
of  one  of  them  is  attached  to  the  merged  sequence.  If 
an  R-unit  is  detected  to  be  equivalent  to  a  subsequence, 
a  copy  of  it  is  attached  to  the  merged  sequence  after 
its  C-SEQ  component  is  replaced  by  the  'sub'-merged 
sequence  produced  by  the  recursive  call  to  EQUIVSEQ. 
For  example,  given: 

<A, (R  <B>) ,  (R  <C,D>)>  and  <A,B,{R  <C>),D>,  the  routine 
would  return  the  merged  sequence 

<A,(R  <B>),(R  <  (R  <C>),D>)  >. 

The  REPLACE-W-U  routine  is  used  to  merge  the  WHILE 
and  UNTIL  components  of  two  equivalent  R-units,  merged 
together,  by  producing  a  DNF  component  computed  by 
merging  each  of  their  corresponding  DNF  components. 
MERGEDNF  does  the  same  for  simple  units  and  is  not  shown.*/ 

CNT  :=  0; 
MERGSEQ  :=  omega; 

repeat  while (CNT  <=  LEN); 

if  PI  >  #SEQ  or  P2  >  #SEQ  then  return  omega; 
end  if; 

if  SEQ[P1]  is  an  A-unit  and  SEQ[P2]  is  an  A-unit 
then 

if  SEQ [Pi] .EQUIVALENTTO  \=  SEQ [P2 ). EQUIVALENTTO 

then  return  omega; 
else 

MERGSEQ  :=  MERGSEQ  +  <SEQ [PI ] . EQUIVALENTTO> ; 

CNT  :=  CNT  +1; 

LAST  :=  P2; 

PI  :=  PI  +  1; 

P2  :=  P2  +  1; 
end  if; 

else 
if  SI  [PI]  is  an  S-unit  and  S2[P2]  is  an  A-unit  or 
SI  [PI]  is  an  A-unit  and  S2[P21  is  an  S-unit 
then  return  omega; 

else 
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if  S1[P1]  is  an  S-unit  and  S2[P2]  is  an  S-unit 
then 
if  S1[P1).PNAME  \=  S2[P2].PNAME 

then  return  omega; 
else 

MERGEDNF(S1 [P1],S2[P2]); 

MERGSEQ  :=  MERGSEQ  +  <S1[P1)>; 

CNT  :=  CNT  +  1; 

LAST  :=  P2; 

PI  :=  PI  +  1; 

P2  :=  P2  +  1; 
end  if; 

else 
if  SI  [PI]  is  an  R-unit 
then 

LC  :=  SI  [PI]  .LENTH; 
if  S2  [P2]  is  an  R-unit 
then 

RC  :=  S2  [P2]  .LENTH; 

if  RC  =  LC 
then 

HOLD  :=  EQUIVSEQISl [PI] .C-SEQ, 

1, 

82  [P2]  .C-SEQ, 

1, 

LC, 

dummy) ; 
if  HOLD  =  omega  then  return  omega; 
end  if; 

NEWUNIT  :=  SI  [PI] ; 

REPLACE-W-U (NEWUNIT, S2 [P21  ,S2  [P2] ) ; 
NEWUNIT. C-SEQ  :=  HOLD; 
MERGSEQ  :=  MERGSEQ  +   <NEWUNIT>; 
CNT  :=  CNT  +  LC ; 
LAST  :=  P2; 
PI  :=  PI  +  1; 
P2  :=  P2  +  1; 

else 
if  LC  >  RC 
then 

HOLD  :=  EQUIVSEQ(S1 [PI] .C-SEQ, 
1, 
S2, 
P2, 
LC, 

LAST) ; 
if  HOLD  =  omega  then  return  omega; 
end  if; 

NEWUNIT  :=  SI [PI] ; 
NEWUNIT. C-SEQ  : =  HOLD; 
REPLACE-W-U (NEWUNIT, 

S2[P2]  ,S2[LAST] ) ; 
MERGSEQ  :=  MERGSEQ  +  <NEWUNIT>; 
CNT  :=  CNT  +  LC ; 
PI  :=  PI  +  1; 
P2  :=  LAST  +  1; 

else   /*   LC    <    RC    */ 

HOLD    :=    EQUIVSEQ(S2 [P2] .C-SEQ, 
1, 
SI, 
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PI, 

RC, 
TEMP) ; 

if  HOLD  =  omega  then  return  omega; 

end  if; 

NEWUNIT  :=  S2  [P2]  ; 

NEWUNIT.C-SEQ  :=  HOLD; 

REPLACE-W-U (NEWUNIT , 

SI  [Pi]  ,S1 (TEMP] )  ; 

MERGSEQ  :=  MERGSEQ  +  <NEWUNIT>; 

CNT  :=  CNT  +  RC ; 

PI  :=  TEMP  +  1; 

LAST  :=  P2; 

P2  :=  P2  +  1; 

end  if  LC  >  RC; 

end  if  LC  =  RC; 

else  /*  S2[P2]  is  not  an  R-unit  */ 
HOLD  :=  EQUIVSEQ(S1  [PI]  .C-SEQ, 

1, 

S2, 

P2, 

LC, 

LAST) ; 
if  HOLD  =  omega  then  return  omega; 
end  if; 

NEWUNIT  :=  SI [PI]  ; 
NEWUNIT.C-SEQ  : =  HOLD; 
MERGSEQ  :=  MERGSEQ  +  <NEWUNIT>; 
PI  :=  PI  +  1; 
P2  :=  LAST  +  1; 
CNT  :=  CNT  +  LC ; 

end  if  S2[P21  is  R-unit; 

else  /*  S1[P1]  is  not  an  R-unit 

but  S2[P2]  must  be  an  R-unit.  */ 
RC  :=  S2  [P2]  .LENTH; 
HOLD  :=  EQUIVSEQ(S1,P1, 

S2[P2] .C-SEQ,  1, 

RC, DUMMY) ; 
if  HOLD  =  omega  then  return  omega; 
end  if; 

NEWUNIT  :=  S2[P2]  ; 
NEWUNIT.C-SEQ  :=  HOLD; 
MERGSEQ  :=  MERGSEQ  +  <NEWUNIT>; 
CNT  :=  CNT  +  RC; 
LAST  :=  P2; 
P2  :=  P2  +  1; 
PI  :=  PI  +  RC; 

end  if  Sl(Pl]  is  an  R-unit; 

end  repeat; 

if  CNT  =  LEN  then  return  MERGSEQ; 
else  return  omega; 


end  EQUIVSEQ; 
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REPLACE-W-U(UNIT,WUNIT,UUNIT) :  procedure; 

UNIT,UUNIT,WUINT:  I-unit; 

/*  UNIT  is  an  R-unit  whose  WHILE  and  UNTIL  conditions 
will  be  merged  with  that  of  WUNIT  and  UUNIT.  */ 

UNIT. WHILE. DNF  := 

/*  UNION-OR  is  a  simple  routine  which  merges 

two  DNF  components  into  one.  It  is  not  shown.*/ 

UNION-OR (UNIT. WHILE. DNF, WUNIT. WHILE. DNF) ; 

if  UUNIT  is  an  R-unit  then 
UNIT. UNTIL. DNF  := 

UNION-OR (UNIT. UNTIL. DNF, UUNIT. UNTIL. DNF) ; 
end  if; 

end  REPLACE-W-U; 

COLLAPSE (MERG, ENTER, ENDING, LEN,NXT) :  procedure; 

MERGE:  I-SEQUENCE;  /*  The  merged  sequence.  */ 
ENTER;  set  of  atoms;  /*  Rule  names  true  on  entering 

the  repeating  subsequence.  */ 
ENDING:  set  of  atoms;  /*  Rule  names  true  on  leaving.*/ 
LEN:  integer;  /*  Length  of  subsequence.  */ 
NXT:  I-unit;  /*  The  unit  which  follows  the  repeating 
subsequence.  */ 

/*  This  routine  creates  new  R-units.  */ 

NEWUNIT  :=  heap (R-unit) ; 
TRUEP  :=  FINDTRUES(NXT) ; 
ENTER  :=  ENTER  -  TRUEP; 
ENDING  :=  TRUEP  -  ENDING; 

/*  The  set  of  rule  names  is  viewed  as  a  simple  conjunct.  */ 

NEWUNIT. LENTH  :=  LEN; 
NEWUNIT. C-SEQ  :=  MERGE; 
NEWUNIT. WHILE. DNF  :=  ENTER; 
NEWUNIT. UNTIL. DNF  :=  ENDING; 

return  NEWUNIT; 

end  COLLAPSE; 
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2.3.3.5   Alternative  Subsequence  Detection 

The  final  process  is  the  coalescing  of  several  descrip- 
tions of  a  set  of  solution  sequences  into  one  general 
description.   Our  construction  is  similar  to  that  of  Winston 
[49]  and  Hayes-Roth  [19,20].   From  two  or  more  descriptions 
of  some  object  we  identify  the  points  of  similarity  and 
alternate  the  differences. 

This  problem  can  be  viewed  as  being  equivalent  to  the 
Longest  Common  Subsequence  problem.   Since  it  is  believed 
to  be  computationally  intractable  because  of  its  NP-complete- 
ness  (in  the  case  of  three  or  more  sequences-  Maier  [29]  )  , 
we  do  not  intend  to  find  the  maximum  number  of  points 
of  similarity  but  rather  a  good  heuristic  approximation. 

The  set  of  descriptions  is  first  ordered  lexicographi- 
cally to  aid  in  discovering  any  equivalent  ones  which 
subsequently  are  replaced  by  one  description.   Then  a  target 
description  is  computed  which  is  composed  of  a  series  of 
subsequences  each  common  to  all  of  the  descriptions.  This 
target  identifies  the  points  within  a  description  that 
delimit  smaller  subsequences   to  be  alternated.   If  the 
target  is  empty,  a  new  target  is  computed.  It  proceeds  by 
finding  the  'best'  series  of  subsequences  common  to  any 
two  descriptions.   'Best'  is  defined  heuristically ;  more 
weight  is  given  to  A-units  and  R-units  than  S-units.  If 
the  target  in  this  case  is  still  empty  the  descriptions 
are  collected  into  an  ALT-unit  with  conditions  computed  as 


-  80  - 


described  below. 

Using  the  final  computed  target,  all  descriptions  are 
scanned  for  the  first  occurrence  of  the  common  target  sub- 
sequence.  The  initial  portions  of  the  descriptions  scanned 
are  then  collected  in  a  set  to  which  the  entire  procedure 
is  recursively  applied.   The  procedure  continues  in  this  way 
until  the  target  is  exhausted.   A  special  tag  unit  is 
appended  to  the  end  of  each  description  to  force  the  algo- 
rithm to  completion. 

A  difficulty  arises  when  a  target  subsequence  does  not 
appear  in  a  particular  description.   In  this  case,  a  prefix 
subsequence  must  be  selected  so  that  it  will  be  alternated 
with  those  prefix  subsequences  found  in  the  descriptions 
which  matched  the  target  subsequence.   This  selection  process 
is  based  on  a  simple  heuristic:   look  for  the  first  occurrence 
of  a  single  unit  that  is  either  common  to  the  target  sub- 
sequence and   nonmatching  description,  or  common  to  one  of 
the  subsequences  extracted  from  a  matching  description  and 
the  nonmatching  description , 

We  demonstrate  this  process  with  an  example.   Given 
<<B  D  E>>,  <<B  D  F  G>>  and   <<D  F  G  >>,  the  following  events 
will  occur:   The  target  is  computed  to  be  <  <<D>>  <<T>>  > 
since  D  is  common  to  all  and  T  is   the  special  tag  unit. 
Then  we  extract  the  prefixes  <<B>>,<<B>>  and  <<  >>.  The 
entire  routine  is  recursively  applied  to  these.  The  ordering 
produces   <<>>  and  <<B>>  as  the  new  set  of  descriptions. 
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Since  there  is  nothing  common  to  both,  the  routine  alter- 
nates them  and  returns  <<(A.*  (<<  >> {  ) )  (<<B>>  (B)))>> 
to  the  top  level.   The  sequence  returned  is  concatenated 
with  <<D>>  to  produce  <<(A.*  {<<  >>  (  ) )  (<<B>> (B) ) )  D>>. 
Now  <<T>>  is  the  target.   The  prefixes  collected  this  time 
are  <<E>>  <<F  G>>   and  <<F  G>>.   Again  the  recursion  orders 
them  getting  <<E>>  and  <<F  G>>.   No  commonalities  are 
detected  so  we  return  with  <<(A.*  (<<£>>(£))  (<<F  G>>(F  G)))>> 
The  tag  is  removed  from  the  sequence  at  the  top  level  and 
the  final  description  produced  is  <<(A.*  (<<  >> (  ) ) (<<B>> 
(B) ) )  D  (A.*  (<<E>>(E))   (<<F  G>>(F  G)))>>. 

The  computation  for  the  conditions  of  the  alternative 
subsequences  is  very  simple.   For  each  alternate,  we  find 
the  set  of  rule  names  true  on  entry  to  each.   From  each  of 
these  sets  we  remove  any  production  name  appearing  in  any 
other.   Intuitively,  the  conditions  specify  the  productions 
which  are  true  when  a  particular  alternative  is  entered  but 
which  are  not  true  on  entering  any  other  alternative.  See 
Figure  2.6   for  complete  details  of  this  entire  process. 
After  computing  alternation  units,  all  A-units  are 
replaced  by  the  (recursively)  cleansed  versions  of  their 
corresponding  P-units.   All  niimeric  components  are  removed 
(numbered  PNAMEs  and  the  lengths  within  the  R-units) .  The 
final  output  is  the  CRAPS  description. 
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Figure  2.6.  Alternation  Construction. 

ALTERNATIVES (DESC) :  procedure; 

DESC:  set  of  I-SEQUENCE;  /*  All  compiled  descriptions.  */ 

/*  ORDER  lexicographically  orders  the  descriptions  and  merges 
any  which  are  equivalent.  It  returns  a  sequence  of  descript- 
ions. It  is  a  simple  routine  using  lex-sort  and  EQUIVSEQ 
and  is  not  shown.  */ 

DE  :=  ORDER (DESC) ; 

if  DE  =  omega  then  return  DE;  end  if; 
if  #DE  =  1  then  return  DE[1];  end  if; 
if  omega  is  in  DE  then 

DE  :=  DE  -  omega; 
end  if; 

/*  COMMON  computes  a  subsequence  common  to  all  descriptions.*/ 

TARGET  :=  COMMON (DE) ; 
if  TARGET  =  omega  then 
MAX  : =  0; 

/*  PAIR-LOOP  is  a  routine  which  calls  the  function  passed 
to  it  as  second  argument  for  every  disjoint  pair  of  objects 
contained  in  its  first  argument.  The  routine  passed  to  it 
BEST-COM-SUBSEQ,  will  compute  the  best  common  subsequence 
found  between  any  two  descriptions.  Notice  TARGET  and  MAX 
are  global  to  BEST-COM-SUBSEQ. 
The  code  for  PAIR-LOOP  is  not  shown.  */ 

PAIR-LOOP (DE, BEST-COM-SUBSEQ) ; 

if  TARGET  =  omega  /*  no  commonalities  at  all  */  then 

return  COALESCE  (DE) ;  /*which  forms  a  new  ALT-unit*/ 
end  if; 

end  if;  /*  A  series  of  common  subsequences  was  found.  */ 

/*  To  force  the  algorithm  to  completion,  we  tag  all  sequences 
with  a  dummy  A-unit.  */ 

TARGET  :=  TARGET  +  <  <dummy-A-unit>  >; 

1    <=    forall    i    <=    #DE; 

DE[i]     :=    DE(i]     +    <dummy-A-unit>; 
end    forall    i; 

FINAL    :=   omega; 

1  <=  forall  i  <=  tTARGET; 
MATCH, NONMATCH  :=  {}; 
NULLFLAG  :=  false; 
CLCT  :=  omega; 

/*  These  two  variables  are  used  globally  in  FIX-UPS  and  are 
passed  to  other  routines.  NXTONE  is  used  for  calculating 
the  DNF  expressions  for  alternatives.  */ 
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NXTONE  :=  TARGET [ i+1 ] (1 ) ; 
SEQ  :=  TARGET [il ; 

1  <=  forall  j  <=  IDE; 

^  FIND-FIRST-SEQ  finds  the  first  occurrence  of  the  second 
argument  sequence  in  the  first  argument  sequence.  It  returns 
a  vector  of  information.  The  first  element  is  the  beginning 
location  of  the  sequence  that  was  found.  The  second  element 
is  the  position  in  the  first  sequence  where  it  ended  and  the 
third  element  is  the  merged  sequence  combining  the  second 
argument  and  the  matching  portion  of  the  first  argument. 

It  uses  a  scan  with  repeated  calls  to  EQUIVSEQ.  The  code  is 
not  shown.  */ 


LOG  :=  FIND-FIRST-SEQ(DE[ jl ,SEQ) ; 
if  LOCll]  =  0  then 

: =  true; 

:=  NONMATCH  +  { j  1  ; 


NULLFLAG 
NONMATCH 
else 

MATCH  := 
HOLD 
DE[j] 
CLCT  := 
end  if; 
end  forall  j; 


:=  MATCH  +  { j  }  ; 
=  DE [ j )  t 1 : LOC [ 2 ] ] ; 
:=  DE[j] [LOC [2] +1:1; 
=  CLCT  +  <HOLD>; 


/*  The  following  routine  will  handle  the  recursive  calls  to 
this  routine  after  computing  the  appropriate  prefixes  from 
the  non-matching  descriptions.  FINAL  will  be  assigned  values 
by  FIX-UPS.  */ 

FIX-UPS  0  ; 
end  forall  i; 

/*  We  have  to  remove   the  tag  from  FINAL.  */ 

FINAL  :=  FINAL[1:#FINAL-1] ; 
return  FINAL; 

end  ALTERNATIVES; 

COMMON(DES):  procedure; 

DES :  sequence  of  descriptions. 

MAX  :=  maxinteger; 

DES  :=  sort-by-length-increasing (DES) ; 

HLD,  TARGET  :=  DES [1] ; 

/*  The  following  loop  will  find  a  target  description  by 
continually  removing  subsequences  from  the  target  that 
are  not  common  to  all  descriptions.  */ 

2  <=  forall  i  <=  #DES; 

/*  TARGET  will  be  adjusted  to  hold  a  sequence  of 
subsequences  found  to  be  common  to  HLD  and  DES[i] 
by  COM-SUBSEQ.  Notice  that  <  is  sent  as  a  function 
for  the  comparison  in  the  routine.  The  subsequence 
with  the  least  WEIGHT  is  necessarily  the  subsequence 
common  to  all  descriptions.  See  COM-SUBSEQ.  */ 
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COM-SUBSEQ(HLD,DES[i]  , <)  ; 

if  TARGET  :=  omega  then  return  omega;  end  if; 

HLD  :=  omega; 

1  <=  forall  j  <=  #TARGET; 

/*  The  following  just  concatenates  all 

of  the  subsequences  creating  one  sequence.*/ 

HLD  :=  HLD  +  TARGET [j] ; 

end  forall  j ; 

end  forall  i; 

return  TARGET; 

end  COMMON; 

BEST-COM-SUBSEQ(X,Y) :  procedure; 

X,y:  I-SEQUENCE; 

/*  We  return  the  common  subsequence  with  greatest  WEIGHT.  */ 

return  COM-SUBSEQ (X , Y , > ) ; 

end  BEST-COM-SUBSEQ; 

COM-SUBSEQ(X,Y,CFUNC) :  procedure,  value(X,Y); 

X,Y:  I-SEQUENCE; 

CFUNC:  Boolean  function; 

INIT  :=  0; 
LOCALWT  :=  0; 
LOCALTARGET  :=  omega; 

repeat  while (X  \=  omega  and  Y  \=  omega); 

1  <=  forall  i  <=  #X; 

LOC  :=  FIND-FIRST-SEQ(Y,<X[i] >) ; 
if  L0C[1]  \=  0  then 
INIT  :=  i; 
stop  forall  i; 
end  if; 
end  forall  i; 

if  INIT  =  0  then  return  LOCALTARGET;  end  if; 

/*  FIND-MAX-LENTH  uses  EQUIVSEQ  to  find  the  maximum  length 
subsequence  common  to  its  two  sequence  arguments ( first  and 
third)  rooted  at  the  positions  passed  as  second  and  fourth 
argument.  It   is  a  simple  scanning  and  counting  routine 
and  is  not  shown.  */ 

LEN  :=  FIND-MAX-LENTH (X, INIT, y, LOC [1] ) ; 
MERGE  :=  EQUIVSEQ (X , INIT ,Y ,LOC [1 ] ,LEN ,LASTY) ; 
LOCALTARGET  :=  LOCALTARGET  +  <MERGE>; 

/*  WEIGHT  is  a  heuristic  weighting  function  which  calculates 
the  relative  size  of  a  sequence  as  follows: 
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Each  S-unit  contributes  1,  each  R-unit  contributes 
2  +  the  WEIGHT  of  its  C-SEQ  argument  and  A-units 
contribute  5  each. 

The  routine  is  a  simple  scanning  function  and  is  not 
shown.  */ 

LOCALWT  :=  LOCALWT  +  WEIGHT (MERGE) ; 
Y  =  y [LASTY+1:] ; 

/*  ADVANCE  is  discussed  in  REPEATS  above.*/ 

X  :=  X[ADVANCE(X,L0C[1]+LEN) :] ; 

end  repeat; 

/*  Now  we  use  the  compare  function:  <  is  used  for  COMMON 
and  >  for  BEST-COM-SUBSEQ.   */ 

if  CFUNC( LOCALWT, MAX)  then 

MAX  :=  LOCALWT; 

TARGET  :=  LOCALTARGET; 
end  if; 

end  COM-SUBSEQ; 
FIX-UPS():  procedure; 


HLD 


omega; 


/*  This  routine  will  compute  the  appropriate  prefixes  for  the 
recursive  call  to  ALTERNATIVES  by  calling  SUB-SELECTIONS  and 
then  it  will  assign  the  appropriate  values  to  FINAL. 
All  variables  known  in  ALTERNATIVES  are  known  here. 
NULLFLAG  is  true  if  there  were  descriptions  not  matching 
with  the  current  TARGET  subsequence.  */ 

if  NULLFLAG  then 

HLD  :=  SUB-SELECTIONS (DE,CLCT,NONMATCH, MATCH, NXTONE) ; 
end  if; 

/*  If  there  were  non  empty  prefixes  of  the  descriptions 

matching  the  current  TARGET  subsequence,  we  alternate  them 
recursively.  */ 


if  CLCT  \= 
FINAL  : 

end  if; 


omega  then 
=  FINAL  +  ALTERNATIVES ({CLCT  [i]  ! 

1  <=  forall  i 


<=  #CLCT}); 


*  If  every  description  had  a  subsequence  matching  the  current 
TARGET  subsequence,  we  append  the  TARGET  subsequence  to  FINAL. 
Otherwise,  we  append  an  ALT-unit  to  FINAL.  This  unit  is  an 
alternation  between  the  leading  prefixes  of  the  non-matches 
with  the  current  target  subsequence,  or,  an  alternation  of 
the  current  target  subsequence  with  the  null  sequence 
depending  upon  whether  prefixes  were  computed  or  not.  */ 


FINAL  :=  FINAL  + 


(if  \NULLFLAG  then  SEQ 
else  if  HLD  \=  omega  then 

COALESCE (HLD  +  <SEQ>) 
else  COALESCE (<SEQ,omega>) 
end  if 
end  if) ; 
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end  FIX-UPS; 

SUB-SELECTIONS (DE,CL,NON, MAT, NXT) :  procedure; 

DE:  set  of  I-SEQUENCES;  /*  Descriptions.  */ 

CL:  sequence  of  I-SEQUENCES;  /*  Leading  prefixes  of  the 

matching  descriptions.  */ 
NON:  set  of  integers;  /*  Indices  of  the  nonmatches.  */ 
MAT:  set  of  integers;  /*  Indices  of  the  matches.  */ 
NXT:  I-unit;  /*  First  unit  of  the  next  target  subsequence.  */ 

/*  This  routine  computes  the  set  of  prefixes  of  the  non-matching 
descriptions  which  are  to  be  used  for  the  recursive  call  to 
ALTERNATIVES.  */ 

HLD  :=  omega; 

FLAG  :=  false; 

if  CL  \=  omega  then 

forall  i  in  NON; 

1  <=  forall  j  <=  #CL; 

UNIT  :=  CL[j] [#CL[j] 1 ; 

LOC  :=  FIND-FIRST-SEQ{DE[i]  ,<UNIT>) ; 

if  L0C[1]  \=  0  then 

CL  :=  CL  +  <DE[i] [1:L0C[11-1]>; 

DE(i]     :=    DE[i) [L0C[11 :) ; 

NON    :=   NON    -    (i} ; 

continue  forall  i; 
end  if; 
end  forall  j; 

end  forall  i; 

end  if; 

forall  k  in  NON; 

forall  j  in  MAT; 

UNIT  :=  DE[j] [1] ; 

LOC  :=  FIND-FIRST-SEQ(DE[k)  ,<UNIT>) ; 

if  L0C[1]  \=  0  then 

HLD  :=  HLD  +  <DE [k] [1 : LOC [1] -2] > ; 
DE[k]  :=  DE[k) [L0C(1]-1:] ; 
continue  forall  k; 
end  if; 
end  forall  j; 

FLAG  :=  true; 

end  forall  k; 

/*  If  we  couldn't  compute  a  prefix  for  one  of  the  non-matches 
we  use  the  null  prefix.  */ 

if  FLAG  then 

HLD  :=  HLD  +  <omega>; 
end  if; 

return  HLD; 

end   SUB-SELECTIONS; 
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COALESCE (DESC) :  procedure; 

DESC:  sequence  of  I-SEQUENCE; 

/*  This  routine  creates  new  ALT-units.  */ 

/*  The  conditionals  for  each  alternative  is  computed  first.*/ 

TOTALS,  SUBTOT  :=  omega; 
CLCTRUS  :=  omega; 

1  <=  forall  i  <=  #DESC; 

if  DESC[i]  =  omega  then 

CLCTRUS [i]  :=  {); 
else 

CLCTRUSli]  :=  FINDTRUES (DESC [ i]  [1 ] )  ; 
end  if; 
end  forall  i; 

1  <=  forall  i  <=  #CLCTRUS; 

1  <=  forall  j  <=  tCLCTRUS,  j  \=  i; 

TOTAL [i]  :=  TOTAL [i]  +  CLCTRUS [j]; 
end  forall  j ; 

end  forall  i; 

1  <=  forall  i  <=  #CLCTRUS; 

CLCTRUS [i]  :=  CLCTRUS [i]  -  TOTAL [i]; 
end  forall  i; 

NEWUNIT  :=  heap (ALT-un it) ; 

1  <=  forall  i  <=  #DESC; 

NEWUNIT. CONDli] .C-SEQ  :=  DESC[i]; 

NEWUNIT. COND[i] .DNF  :=  CLCTRUS[il; 
end  forall  i; 

return  <NEWUNIT>; 
end  COALESCE; 
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2.3.3.6   Meta-Rule  Construction 

Construction  of  the  meta-rules  is  based  on  the  transition 
of  the  PS  environment  when  firing  a  rule.   The  first  type 
of  meta-rule  is  concerned  with  how  rules  are  activated. 
From  the  trace  we  can  determine  which  rules  may  activate 
other  productions   when  fired   by    computing  the  set  differ- 
ence of  the  new  environment  with  the  old.   Similarly,  for 
the  second  type  of  meta-rule  (how  rules  are  inactivated) , 
we  compute  the  set  difference  of  the  old  environment  with 
the  new.   The  Currently-active  type  meta-rule  is  constructed 
by  copying  the  environment  in  which  a  rule  was  fired,  and  the 
Just-fired  type  is  constructed  from  the  sequence  of  rules 
fired. 

All  meta-rules  so  constructed  are  collected  in  sets 
MADE-ACTIVE,  MADE- INACTIVE ,  ENVIRONS   and  JUST-FIREDS, 
respectively.   They  are  represented  in  the  set  by  a  pair 
<L,R>,  where  L  is  a  set  of  production  names  corresponding 
to  the  argument  of  the  LHS  function  and  R,  the  RHS.  Details 
appear  in  Figure  2.7. 
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Figure  2.7:  Meta-rule  Construction. 


CONSTRUCT-M-RULE (LUNIT.RUNIT) :  procedure; 

difnewold,  difoldnew:  set  of  atoms; 
pair:  tuple  of  sets; 

/*  Construction  of  meta-rules  according  to  the  definitions.*/ 

difnewold  :=  (RUNIT. TRUE-PS  +  {RUNIT. PNAME) )  - 
(LUNIT. TRUE-PS  +  { LUNIT . PNAME )) ; 

difoldnew  :=  (LUNIT. TRUE-PS  +  { LUNIT . PNAME } )  - 
(RUNIT. TRUE-PS  +  {RUNIT . PNAME )) ; 

/*  The  first  element  in  the  pairs  corresponds  to  the  LHS  of 
a  meta-rule,  and  the  second  to  the  RHS.  */ 

/*  Type  1  meta-rule...  */ 

if  exists  pair  in  MADE-ACTIVE  such  that 
pair[l]  =  difnewold  then 

pair(2]  :=  pair[2]  +  {LUNIT. PNAME) ; 
else 
MADE-ACTIVE  :=  MADE-ACTIVE  + 

{<difnewold,{LUNIT.PNAME}>) ; 
end  if; 

/*  Type  2  meta-rule...  */ 

if  exists  pair  in  MADE-INACTIVE  such  that 
pair[l]  =  difoldnew  then 
pair[2]  :=  pair [2]  +  { LUNIT. PNAME) ; 

else 
MADE-INACTIVE  :=  MADE-INACTIVE  + 

{<difoldnew, { LUNIT. PNAME) >) ; 
end  if; 

/*  Type  3  meta-rule...  */ 

if  exists  pair  in  ENVIRONS  such  that 

pair[l]  =  LUNIT. TRUE-PS   +  { LUNIT. PNAME )  then 

pair[2]  :=  pair[2]  +  {LUNIT. PNAME) ; 
else 
ENVIRONS  :=  ENVIRONS  + 

{<LUNIT.TRUE-PS+{ LUNIT. PNAME) , {LUNIT . PNAME) >}  ; 
end  if; 

/*  Type  4  meta-rule...  */ 

if  exists  pair  in  JUST-FIREDS  such  that 
pair[l]  =  {LUNIT. PNAME)  then 

pair[2)  :=  pair[2]  +  {RUNIT. PNAME) ; 
else 
JUST-FIREDS  :=  JUST-FIREDS  + 

{< {LUNIT. PNAME) , {RUNIT. PNAME )> ) ; 
end  if; 

end  CONSTRUCT-M-RULEr 
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CHAPTER  3.   EXPERIMENTS 


In  this  chapter  we  discuss  the  experiments  that  were 
performed  using  the  system  and  describe  some  of  the 
insights  we  have  gained  from  its  behavior. 

3. 1   Jigsaw  Puzzles 

The  Jigsaw  Puzzle  Production  System  (Section  1.2) 
consists  of  33  productions  containing  an  average  of  3  data 
elements  in  the  LHS,  and  was  constructed  in  a  few  man  hours. 
The  representation  was  simplified  so  that  knowledge  of  the 
physical  locations  of  the  puzzle  pieces  was  ignored.  This 
allowed  us  to  concentrate  on  the  more  interesting  problem  of 
acquiring  heuristics  for  solving  problems  rather  than  deal- 
ing with  the  complexities  of  moving  objects  in  space. 

The  experiments  were  performed  on  5  puzzles,  each 
containing  25-30  pieces.   Only  one  puzzle  was  used  in  the 
training  session.   The  experiments  showed  that,  on  the 
average,  13  rules  were  applicable  on  each  cycle,  and  with 
the  size  of  the  puzzles  used,  approximately  400  cycles  were 
needed  to  solve  a  puzzle.   In  the  absence  of  any  heuristic 
controls,  a  production  system  such  as  the  one  in  Section  1.2 
would  require  an  inordinate  amount  of  time  to  search  for  a 
solution.   (The  reader  is  invited  to  compute  the  size  of 
the  search  graph.)   This  situation  appears  to  be  an  ideal  one 
for  demonstrating  our  approach.   It  seems  likely  that  with 


the  introduction  of  simple  sequencing  rules,  a  system  could 
solve  a  problem  of  this  type  in  a  reasonable  amount  of  time 
and  exhibit  intelligent  behavior.   However,  it  does  not 
appear  likely  that  brute  force,   heuristic  search  methods, 
or  more  powerful  representations  would  admit  easy  and 
general  solutions  to  the  jigsaw  puzzle  problem. 

It  can  be  argued  that  the  productions  we  have  defined 
can  be  encoded  by  just  a  few  rules  (perh^s 2  or  3).   In 
this  situation,  the  heuristics  for  solving  this  problem  are 
trivial.   However,  such  a  representation  would  be  highly 
inflexible  and  admit  only  limited  or  narrow  behavior.   We 
have  attempted  to  define  a  set  of  productions  which  would 
allow  for  many  solutions  and  many  kinds  of  behavior. 
Further,  many  of  the  productions  (in  particular,  the  pile 
productions)  are  general  enough  to  be  used  for  other 
substantially  different  problems.   It  would  seem  possible 
then,  that  any  heuristics  we  generate  for  these  productions 
would  be  applicable  in  many  different  situations,  and 
therefore  would  be  of  a  more  fundamentally  general  nature. 
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3 . 2   Execution  with  Training 

The  entire  training  session  took  several  hours  of 
connect  time  (mostly  for  bookkeeping)  and  9  minutes  of  CPU 
time  running  the  system  on  a  CDC  6600  under  UT  LISP.  The 
session  was  organized  into  a  series  of  training  sessions 
each  intended  to  solve  some  subproblem  of  the  overall 
problem.    This  allowed  the  human  expert  to  experiment  and 
decide  on  the  most  reasonable  approach  for  demonstrating 
the  solution  of  the  problem.   Furthermore,  the  limited 
resources  available  for  the  pattern  recognition  algorithms 
prohibited  the   analysis  of  solution     sequences  whose 
lengths  were  greater  than  100  cycles.   Each  of  the 
sequences  produced  from  the  shorter  sessions  were  serially 
analyzed  and  the  resulting  descriptions  concatenated  to  the 
CRAPS  description  contained  in  Appendix  2.   Section  3.3 
contains  an  abbreviated  copy  of  the  description. 

The  statistics  produced  by  the  PS  interpreter  for  the 
complete  training  session   is  contained  in  Figure  3.1. 
Some  of  the  statistics  are  concerned  with  the  matching 
network  produced  by  the  PS  interpreter  from  a  compilation 
of  the  LHSs   of  the  production  memory.   The  output  generated 
for  this  session  is  too  large  to  reproduce  here.   However, 
we  have  included  an  abbreviated  session  of  the  fourth 
experiment  running  under  CRAPS  control  in  Appendix  3. 
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Figure  3.1  Training  session  statistics 


(END  —  EXPLICIT  HALT) 

33  PRODUCTIONS  IN  SYSTEM 

127/300  NODES 

391  PRODUCTIONS  FIRED 

3490  PRODUCTIONS  INSTANTIATED 

1808  WM  TRANSACTIONS  (8795  NODE  ACTIVATIONS) 

65200  TESTS  PERFORMED 

129  MAXIMUM  WM  SIZE 

99.25831  MEAN  WM  SIZE 

33  MAXIMUM  CS  SIZE 

12.12788  MEAN  CS  SIZE 

17  3  MAXIMUM  NUMBER  TOKENS  STORED 

113.75703  MEAN  NUMBER  TOKENS  STORED 


9.0  MINUTES  CPU 
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3. 3   Generated  CRAPS  Description  and  Meta-Rules 

The  CRAPS  description  (see  Appendix  2)  generated  from 
the  trace  in  Appendix  1,  consists  of  75  concatenations  and 
15  repetitions;  no  permutations   were  discovered,  and  no 
alternations  were  possible  since  only  one  sequence  was 
analyzed.   The  DAG  which  was  constructed  contained  many 
forward   arcs  which  were  correctly  identified  and  discarded. 
An  abbreviated  version  of  the  description  is  shown  in 
Figure  3.2. 

The  fact  that  no  permutations  were  generated  may  indi- 
cate the  rather  limited  usefulness  of  such  a  construct. 
However,  it  appears  more   accurate  to  say  that  the  solution 
presented  to  the  system  was  produced  from  an  environment 
in  which  parallelism  was  unlikely  to  occur.   That  is,  the 
limitations  of  the  communication  channel  between  man  and 
machine  was  not  conducive   to  demonstrate  parallel  sequences 
of  actions.   At  any  one  time  a  limited  amount  of  information 
was  displayed  on  the  CRT  screen  and  so  the  problem  solution 
demonstrated  was  forced  to  be  more  narrow  or  localized 
decreasing  the  chances  of  parallel  flows  of  information 
(while  increasing  the  likelihood  of  short  repeating  sub- 
sequences).  The  problem  of  jigsaw  puzzles  would  also  appear 
to  make  limited  use  of  parallelism  since  most  of  the  activity 
is  limited  to  a  few  puzzle  pieces  at  any  one  time.  However, 
many  problems  seem  to  require  such  a  construct.  For  example, 
it  is  clear  that  an  industrial  robot  with  2  (or  more)  arms 
operating  on  an  assembly  line  would  be  required  to  perform 
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certain  functions  in  a  strict  sequential  fashion.  However, 
its  productivity  would  increase  significantly  if  its  arms 
were  controlled  concurrently. 
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Figure  3.2  Abbreviated  Puzzle  Heuristics 

The  preconditions  of  the  simple  units  have  been  removed. 


<<LOOK-AT-PIECE-IN-HEAP 
PICK-OBJECT- I N-VIEW 
MAKE-A-PILE 

[REPEAT  (WHILE  ( LOOK-AT-PI ECE-IN-HEAP) ) 
(UNTIL  (EMPTY-HEAP)) 
<<LOOK-AT-PI ECE-IN-HEAP 
PICK-OBJECT- I N-VIEW 
PUT-0BJECT-IN-PILE>>1 
EMPTY-HEAP 

REMEMBER-CURRENT-PILE 
LOOK-AT-FIRST-IN-PILE 
REMEMBER-CURRENT-OBJECT 
LOOK-AT-NEXT-IN-PILE 
PICK-OBJECT-FROM-PILE 
FORGET-CURRENT-PILE 
MAKE-A-PILE 
FORGET-CURRENT-PILE 
PICK-A-PILE 
LOOK-AT-FIRST-IN-PILE 
[REPEAT  (WHILE  NIL) 

(UNTIL  (PIECE-HAS-STRAIGHT-EDGE 

REMEMBERED-OBJECT-IN-VIEW) ) 
<< [REPEAT  (WHILE  NIL) 

(UNTIL  (PIECE-HAS-STRAIGHT-EDGE) ) 
<<LOOK- AT-NEXT- IN-PI LE>>] 
[REPEAT  (WHILE  (PIECE-HAS-STRAIGHT-EDGE)) 
(UNTIL  (REMEMBERED-OBJECT-IN-VIEW) 
<<PICK-OBJECT-FROM-PILE 
FORGET-CURRENT-PILE 
PICK-A-PILE 
PUT-OBJECT- IN-PI LE 
FORGET-CURRENT-PILE 
PICK-A-PILE 

LOOK-AT-FIRST-IN-PILE>>] >>] 
PICK-OBJECT-FROM-PILE 
FORGET-CURRENT-PILE 
PICK-A-PILE 
PUT-OBJECT- IN-PI LE 
FORGET-REMEMBERED-OBJECT 
LOOK-AT-FIRST-IN-PILE 
PICK-OBJECT-FROM-PILE 
START-PUZZLE 
LOOK-AT-FIRST-IN-PILE 

[REPEAT  (WHILE  (LOOK-AT-NEXT-IN-PILE)) 
(UNTIL  NIL) 
<< [REPEAT  (WHILE  NIL) 

(UNTIL  (PIECE-FITS-IN-PUZZLE) ) 
<<LOOK-AT-NEXT-IN-PILE>>] 
[REPEAT  (WHILE  (LOOK-AT-NEXT-IN-PILE 

PIECE-FITS-IN-PUZZLE) ) 

(UNTIL  NIL) 

<<PICK-OBJECT-FROM-PILE 

F IT-PI ECE-IN-PUZZLE 

PIECE-PUT-IN-PUZZLE 

LOOK-AT-FIRST-IN-PILE>>] >>] 
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PICK-OBJECT-FROM-PILE 
F IT-PI ECE-IN-PUZZLE 
PIECE-PUT- IN- PUZZLE 
[REPEAT  (WHILE  NIL) 

(UNTIL  (PUZZLE-IS-FINISHED) ) 
<<FORGET-CURRENT-PILE 
PICK-A-PILE 
LOOK-AT-FIRST-IN-PILE 
REMEMBER-CURRENT-OBJECT 
FIND-COLOR-OF-PIECE 
LOOK-AT-NEXT-IN-PILE 
(REPEAT  (WHILE  NIL) 

(UNTIL  (REMEMBERED-OBJECT-IN-VIEW) ) 
<< [REPEAT  (WHILE  NIL) 

(UNTIL  (PIECE-HAS-CURRENT-COLOR) ) 
<<LOOK-AT-NEXT-IN-PILE>>] 
[REPEAT  (WHILE  ( FORGET-COLOR-OF-PIECE 

PIECE-HAS-CURRENT-COLOR) ) 
(UNTIL  (REMEMBERED-OBJECT-IN-VIEW) ) 
<<PICK-OBJECT-FROM-PILE 
FORGET-CURRENT-PILE 
PICK-A-PILE 
PUT-OBJECT- I N-PILE 
FORGET-CURRENT-PILE 
PICK-A-PILE 

LOOK-AT-FIRST-IN-PILE>>] >>] 
FORGET-REMEMBERED-OBJECT 
PICK-OBJECT-FROM-PILE 
FORGET-CURRENT-PILE 
PICK-A-PILE 
PUT-OBJECT- I N-PILE 

[REPEAT  (WHILE  LOOK-AT-FIRST-IN-PILE) 
(UNTIL  (PILE-IS-EMPTY) ) 
<<LOOK-AT-FIRST-IN-PILE 
PICK-OBJECT-FROM-PILE 
FIT-PI ECE-IN-PUZZLE 
PIECE-PUT-IN-PUZZLE>>] >>] 
FORGET-CURRENT-PILE 
[REPEAT  (WHILE  (PICK-A-PILE) 

FORGET-REMEMBERED-PILE) ) 
(UNTIL  (THERE-ARE-NO-PILES)) 
<<PICK-A-PILE 

DESTROY-A-PILE>>] 
PUZZLE-IS-FINISHED>> 
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It  is  interesting  to  see  exactly  what  heuristics  are 

encoded  by  this  description.  The  first  5  units: 

<LOOK-AT-PIECE-IN-HEAP 
PICK-OBJECT- IN-VIEW 
MAKE-A-PILE 

[REPEAT  (IffllLE  (LOOK-AT-PIECE-IN-HEAP) ) 

(UNTIL  ( EMPTY- HEAP ) ) 
<LOOK-AT-PIECE-IN-HEAP 
PICK-OBJECT- IN-VIEW 
PUT-OBJECT-IN-PILE> ] 
EMPTY- HEAP 

have  the  effect   of  ordering  thepieces  in  the  heap.   It  does 

so  by  picking  (arbitrarily)  a  piece  from  the  heap,  putting 

it  in  a  pile  (MAKE-A-PILE) ,  and  repeating  the  same  for  the 

remaining  pieces.   Since  the  piles  are  in  fact  queues,  the 

first  piece  placed  in  the  pile  will  be  the  first  piece  to 

be  viewed  from  the  pile.   The  initial  arbitrary  selection 

of  a  piece  in  the  heap  is  a   source  of  error  as  we  shall 

see  shortly. 

The  next  part  of  the  sequence, 

REMEMBER-CURRENT-PILE 
LOOK-AT-FIRST-IN-PILE 
REMEMBER-CURRENT-OBJECT 
LOOK-AT-NEXT-IN-PILE 

has  the  effect  of  initializing  the  pile  for  an  ordered  search. 
The  first  piece  in  the  pile  is  tagged  by  REMEMBER-CURRENT- 
OBJECT   and  then  placed  at  the  end  of  the  pile  by 
LOOK-AT-NEXT-IN-PILE   so  that  when  it  comes  into  view  later, 
we  will  know  that  we  have  scanned  the  entire  pile. 
This  is  the  point  at  which  an  error  is  introduced  by  the 
heuristics  specified  in  the  initial  segment.   The  actual 
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preconditions  of  REMEMBER-CURRENT-OBJECT  (see  Appendix  2) 
specifies  that   PIECE-HAS-STRAIGHT-EDGE ,  that  is,  the  first 
object  in  the  pile,  which  is  the  first  piece  picked  from 
the  heap,  must  have  a  straight  edge.   Therefore,  the  initial 
selection  of  a  piece  from  the  heap  should  not  be  arbitrary, 
but  instead  should  be  one  with  a  straight  edge.   This 
problem  could  have  been  avoided  with  additional  training 
sequences  for  the    initial  subsequence  and  using  the  alterna- 
tion routine  to  specify  alternative  actions.   These  errors 
are  handled  by  the  meta-rule  mechanism. 
The  next  part  of  the  description. 


PICK-OBJECT-FROM-PILE 

FORGET-CURRENT-PILE 

MAKE -A- PILE 

FORGET-CURRENT-PILE 

PICK-A-PILE 

LOOK-AT-FIRST-IN-PILE 

[REPEAT  (WHILE  NIL) 

(UNTIL  (PIECE-HAS-STRAIGHT-EDGE 

REMEMBERED-OBJECT-IN-VIEW) ) 
< [REPEAT  (WHILE  NIL) 

(UNTIL  (PIECE-HAS-STRAIGHT-EDGE) ) 
<LOOK-AT-NEXT-IN-PILE>] 
[REPEAT  (WHILE  (PIECE-HAS-STRIGHT-EDGE) ) 

(UNTIL  (REMEMBERED-OBJECT-IN-VIEW) ) 
<PICK-OBJECT-FROM-PILE 
FORGET-CURRENT-PILE 
PICK-A-PILE 
PUT-OBJECT-IN-PILE 
FORGET-CURRENT-PILE 
PICK-A-PILE 

LOOK-AT-FIRST-IN-PILE> ] > ] 
PICK-OBJECT-FROM-PILE 
FORGET-CURRENT-PILE 
PICK-A-PILE 
PUT-OBJECT-IN-PILE 
FORGET-REMEMBERED-OBJECT 

has  the  effect  of  creating  a  second  pile  composed  of  all  of 

the  pieces  with  straight  edges.   The  initial  pile  is 
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repeatedly  scanned  (until  the  tagged  piece  is  seen)  and 
for  each   piece  in  view  which  has  a  straight  edge,  the  piece 
is  removed  from  the  first  pile  and  placed  in  the   second. 
The  appropriate  conditions  are  encoded  by  the  while  and 
until  components  of  the   repetition  units. 

We  now  have  one  pile  of   indistinguished  pieces  and  a 
second  composed  of  all  the  straight  edge  pieces.   We  can 
now  begin  the  puzzle  by  building  the  outside  edges  first 
from  the  pieces  in  the  second  pile  until  it  is  exhausted. 
The  following  subsequence  performs  these  actions. 

LOOK-AT-FIRST-IN-PILE 
PICK-OB JECT-FROM-PILE 
START-PUZZLE 
LOOK-AT-FIRST-IN-PILE 

[REPEAT  (WHILE  (LOOK-AT-NEXT-IN-PILE) ) 
(UNTIL  NIL) 
<  [REPEAT  (VJHILE  NIL) 

(UNTIL  (PIECE-FITS-IN-PUZZLE) 
<LOOK-AT-NEXT-IN-PILE> ] 
[REPEAT  (WHILE  (LOOK-AT-NEXT-IN-PILE 

PIECE-FITS-IN-PUZZLE) ) 
(UNTIL  NIL) 
<PICK  OBJECT-FROM-PILE 
FIT-PIECE- IN-PUZZLE 
PIECE-PUT- IN-PUZZLE 

LOOK-AT-FIRST-IN-PILE> ] > ] 
PICK-OB JECT-FROM-PILE 
FIT-PIECE- IN-PUZZLE 
PIECE-PUT- IN-PUZZLE 

Attention  is  now  turned  to  the  first  pile.   The  following 
rather  lengthy  procedure  is  repeated  until  the  first  pile  is 
exhausted  in  which  case  all  of  the  puzzle  pieces  will  have 
been  placed  in  the  puzzle. 

If  you  study   a  children's  puzzle,  you  will  observe 
that  (usually)  all  of  the   pieces  with   the  same  average 
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color  are  connected,  and  further,  each  color  group  is 
connected  to  the  edge  of  the  puzzle.  This  suggests  the 
following  procedure  which  was  used  by  the  trainer. 
We  look  at  the  first  piece  in  the  first  pile,  note  its 
color,  tag  it  and  place   it  at  the  end  of   the  pile. 
Then  we  scan  the  entire  pile,  removing  those  pieces  with 
the  same  average  color   and  place  them  in  a  separate  pile, 
called  the  color  pile.  This  procedure  is  repeated  until 
we  encounter  the  tagged  piece,  which  is  removed  and  placed 
in  the  color  pile.   We  then  exhaustively  scan  the  color 
pile,  selecting  the  pieces  that  fit  in  the  puzzle  and 
placing  them  in  the  puzzle.   The  connectivity  property  of 
children's  puzzles  insures  that  this  pile  will  be  exhausted 
and  no  infinite  loop  through  the  pile  is  possible.  Once  this 
is  accomplished,  attention  is  turned  back  to  the  original 
pile,  another  color  is  selected  and  the  entire  process  is 
repeated  lontil  the  puzzle  is  finished.   The  following 
subsequence  encodes  the  above  heuristics. 
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[REPEAT  (WHILE  NIL) 

(UNTIL  (PUZZLE-IS-FINISHED) ) 
<FORGET-CURRENT-PILE 
PICK-A-PILE 
LOOK-AT-FIRST-IN-PILE 
REMEMBEP-CURRENT-OBJECT 
FIND-COLOR-OF-PIECE 
LOOK-AT-NEXT-IN-PILE 
[REPEAT  (WHILE  NIL) 

(UNTIL  (REMEMBERED-OBJECT-IN-VIEW) ) 
< [REPEAT  (WHILE  NIL) 

(UNTIL  (PIECE-HAS-CURRENT-COLOR) ) 
<LOOK-AT-NEXT-IN-PILE> ] 
[REPEAT  (WHILE  (FORGET-COLOR-OF-PIECE 

PIECE-HAS-CURRENT-COLOR) ) 
(UNTIL  (REMEMBERED-OBJECT-IN-VIEW) ) 
<PICK-OBJECT-FROM-PILE 
FORGET-CURRENT-PILE 
PICK-A-PILE 
PUT-OBJECT- IN-PILE 
FORGET-CURRENT-PILE 
PICK-A-PILE 

LOOK-AT-FIRST-IN-PILE> ] > ] 
FORGET-REMEMBERED-OBJECT 
PICK-OBJECT-FROM-PILE 
FORGET-CURRENT-PILE 
PICK-A-PILE 
PUT-OBJECT-IN-PILE 

[REPEAT  (WHILE  (LOOK-AT-FIRST-IN-PILE)) 
(UNTIL  (PILE-IS-EMPTY) ) 
<LOOK-AT-FIRST-IN-PILE 
PICK-OBJECT-FROM-PILE 
FIT-PIECE- IN-PUZZLE 
PIECE-PUT-IN-PUZZLE> ] >  ] 


Now  that  all  of  the  piles  are  exhausted   and  all  of 

the  pieces  are  in  the  puzzle,  all  of  the  piles  are  scanned 

in  turn,  destroying  each  of  them  until  none  remain  : 

FORGET-CURRENT-PILE 
[REPEAT  (WHILE  (PICK-A-PILE 

FORGET-REMEMBERED-PILE) ) 
(UNTIL  (THERE-ARE-NO-PILES)) 
<PICK-A-PILE 
DESTROY-A-PILE>] 
PUZZLE-IS-FINISHED> 

Now  the  puzzle  is  finished.   Appendix  3  contains  an 

experiment   using  the  above  heuristics. 
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The  analysis  of  the  trace  produced  from  the  training 
session  also  produced  192  meta-rules :    47,  35,  90  and  20 
of  types  1,  2,  3  and  4   respectively.    There  are  too  many 
meta-rules  to  be  reproduced  here,  but  an  arbitrary  selec- 
tion of  a  few  of  each  type  are  shown  in  Figure  3.3. 
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Figure  3.3  Samples  of  the  generated  Meta-rules 

Type  1  Meta-rules: 

[ (<WANT-ACTIVE> 

(THERE-ARE-NO- PILES) 

)  --> 

{<TRY-TO-FIRE>  (DESTROY-A-PILE ) ) 1 

[ (<WANT-ACTIVE> 

(FORGET-CURRENT-PILE 
PILE-IS-EMPTY 
DESTROY-A-PILE 
REMEMBER-CURRENT-PILE) 

)  — > 

{<TRY-TO-FIRE>     (PICK-A-PILE ) ) ] 

Type  2  Meta-rules: 

[ (<WANT-INACTIVE> 

(FORGET-REMEMBERED-PILE) 
)  --> 

(<TRY-TO-FIRE>  (FORGET-REMEMBERED-PILE) ) ] 

[ (<WANT-INACTIVE> 

(CLOSE-EYES 

OBJECT- I N-H AND- IN-VIEW 
FIND-COLOR-OF-PIECE 
FORGET-COLOR-OF-PIECE 
PI ECE-H AS-CURRENT-COLOR 
PIECE-FITS-IN-PUZZLE 
F IT-PI ECE-IN-PUZZLE 
PIECE-PUT- I N-PUZZLE 
PUT-OBJECT-IN-PILE 
REMEMBER-CURRENT-OBJECT 
REMEMBERED-OBJECT- IN-VIEW 
REMEMBERED-OBJECT- IN-HAND) 

)  — > 

(<TRY-TO-FIRE>  (PIECE-PUT-IN-PUZZLE) ) ] 

Type    3    Meta-rules: 

[  (<CURRENTLY-ACTIVE> 

(PUZZLE-IS-FINISHED 
THERE-ARE-NO-PILES) 

)     ~> 

(<TRY-TO-FIRE>     (PUZZLE-IS-FINISHED) ) ] 

[  (<CURRENTLY-ACTIVE> 

(PUZZLE-IS-FINISHED 
THERE-ARE-NO-PILES 
FORGET-REMEMBERED-PILE) 

)     --> 

{<TRY-TO-FIRE> 

(FORGET-REMEMBERED-PILE) ) ] 

Type  4  Meta-rules: 

[  (<JUST-FIRED>  (LOOK-AT-PIECE-IN-HEAP)  ) 

—  > 
(<TRY-TO-FIRE> 

(PICK-UP-OBJECT-IN-VIEW) ) ] 

1  (<JUST-FIRED>     (PICK-UP-OBJECT-IN-VIEW)  ) 

—  > 
(<TRy-TO-FIRE> 

(PUT-OBJECT-IN-PILE 
MAKE-A-PILE) ) ] 
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The  heuristics  specified  in  the  preceding  pages  are 
not  general  enough  to  solve  every  jigsaw,  puzzle.   The  human 
expert  made  certain  assumptions  that  were  reflected  in  the 
CRAPS  description.   In  particular,  when  presented  with  a 
puzzle  which  does  not  have  the  connectivity  property,  it  is 
possible  that  the  system  would  fail  to  find  a  solution. 
However,  the  description  is  biased  towards  the  solution 
demonstrated  by  the  expert  and  so  would  exhibit  intelligent 
behavior  when  presented  with  the  appropriate  inputs.  A  more 
general   solution   would  be   possible  by  conducting  more 
training  sessions,  perhaps  with  different  trainers,  and 
using  the  alternation  operator  or  the  meta-rule  mechanism. 
The  meta-rules   encode  reasonable  heuristics  and  correct 
statements  of  control  in  most  cases.   They  are  very  different 
from  those  described  by  Davis  and  Kibler  whose  formalisms 
are  highly  data-dependent.   Davis'  meta-rules  are  acquired 
explicitly  from  a  human  expert  and  are  composed  of  predicates 
applied  to  the  data  in  WM.    Kibler's  meta-rules  specify  in 
effect  'data-flow  links'  between  rules,  and  are  compiled 
statically  from  production  memory  by  an  analysis  of  the 
contents  of  the  LHS  and  RHS  of  rules.   The   rules  we  have 
constructed  are  dependent  only  on  the  conflict  set  of  rules 
and  the  dynamic  behavior  of  the  program.   This  has  the 
effect  of  limiting  the  suggested  rules  to  those  that  were 
used  in  a  solution.   A  large  number  of  such  rules  are  produced 
because  of  the  large  number  of  possible  conflict  sets  contained 
in  the  solution  sequence. 
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The  meta-rules  that  have  been  defined  here  are  flawed 
by  their  limited  scope  or  context.   The  LHS  of  the  meta- 
rules interrogate  only  the  current  conflict  set  or  the  previ- 
ously fired  production.   In  several  similar  situations, 
the  rules  MAKE-A-PILE  and  PICK-A-PILE  are  suggested  with 
equal  weight  because  of   this  limited  scope.   In  this  case, 
an  arbitrary  selection  is  not  adequate  and  a  deeper  analysis 
of  the  situation  is  required  to  make  the  correct  choice. 
More  context  within  the  solution  sequence   should  be  used 
to  disambiguate  the  situation.   We  view  our  meta-rule 
construct  as  a  starting  point  from  which  to   analyze  and 
understand  the  use  of  this  type  of  mechanism.   It  is  our 
belief  that  such  rules  exhibit  adequate  behavior  when  used 
in  conjunction  with  the   CRAPS  descriptions.  The  primitives 
defined  were  derived  from  insights  gained  from  several 
preliminary  experiments  with  CRAPS.   In  view  of  the    perform- 
ance of  the  jigsaw  puzzle  PS,    more   research  into  the 
automatic   construction  of  meta-rules  is  highly  desirable. 
These  points  are  discussed  further  in  the  following  sections. 
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3 . 4   Execution  with  Heuristics 

The  original  puzzle  was  easily  solved  under  CRAPS 
control  in  9.5  minutes  with  no  meta-rule  calls.   The 
additional  time  required  was  due  to  the  CRAPS  implementation 
within  the  interpreter. 

A  second  quite  different  puzzle  was  solved  in  10.5  minutes 
but  required  5  meta-rule  calls.   The  situation  described 
in  the  previous  section  fthe  first  piece  picked  from  the 
heap  is  required  to   have  a  straight  edge)   occurred  and 
was  correctly  handled  by  the  meta-rules.   The  first  piece  in 
the  pile,  although  it  did  not   have  a  straight  edge,  was 
tagged  and  eventually  placed  in  the  pile  with  the  straight 
edge  pieces.   As  the  outside  edges  of  the  puzzle  were  being 
built,  when  the  tagged  piece  was  encountered   and  found  to  fit 
into  the  puzzle,  the  meta-rules  suggested  that  it  be  placed  in 

the  puzzle.   Subsequently,  the  CRAPS  description  worked 
correctly. 

The  following  statistics  were  produced  for  this 
experiment . 

(END  —  EXPLICIT  HALT) 

(5  —  META  RULE  CALLS) 

33  PRODUCTIONS  IN  SYSTEM 

127/300  NODES 

416  PRODUCTIONS-FIRED 

3776  PRODUCTIONS-INSTANTIATED 

1880  WM-TRANSACTIONS  (70605  NODE  ACTIVATIONS) 

(69801  TESTS  PERFORMED) 

(137  MAXIMUM  WM  SIZE) 

(107.32692  MEAN  WH  SIZE) 

(35  MAXIMUM  CS  SIZE) 

(13.12740  MEAN  CS  SIZE) 

(181  MAXIMUM  NUMBER  TOKENS  STORED) 

(117.66587  MEAN  NUMBER  TOKENS  STORED) 

10.5  MINUTES  CPU 
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The  third  puzzle  failed  to  be  solved  because  of  an 
incorrect  choice  specified  by  the  meta-rules.   After  193 
cycles,  it  had  succeeded   in  ordering  the  heap  and  building 
the   pile   of   straight  edge  pieces.   The  same  situation 
occurred  as  described  in  the  second  experiment  except  that 
this  time  the  tagged  element  did  not  fit  in  the    puzzle 
when  the  outside  edges  were  being  built.   At  that  point, 
the  system  looped  through  the  pile  containing  the  single 
tagged  piece  (all  of  the  straight  edge  pieces  had  been 
placed  in  the  puzzle) .   The  repetition  unit,  which  repeated 
LOOK-AT-NEXT-IN-PILE   with  the  condition  until  PIECE-FITS-IN- 
PUZZLE   never  terminated. 

The  fourth  puzzle  worked  properly.   As  you  will  note 
in  Appendix  3,  a  very  similar  situation  occurred  as  that 
described  above.   This  time,  the  second  piece  in  the  pile, 
which  is  the   focus  of  attention  of  the  PICK-OBJECT-FROM-PILE 
unit  following  the  REMEMBER-CURRENT-OBJECT  unit,  is  also 
required  by  the  preconditions  to  have  a  straight  edge. 
In  this  case  it  did  not.   Rather  than  placing  this  piece  in 
the  pile  of  straight  edge  pieces,  the  meta-rules  suggested 
the  LOOK-AT-NEXT-IN-PILE  production.  This  led  to  the  correct 
choice  of  a  piece  from  the  pile  (which  had  a  straight  edge) 
and  subsequently  the  CRAPS  description  worked  correctly. 

A  fifth  puzzle  was  run  without  the  CRAPS  description 
and  with  the  meta-rules  alone.   After  7  3  cycles  and  approxi- 
mately 2.5  minutes,  it  had  successfully  ordered  the  heap  by 
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piling  the  pieces.   Immediately  afterws,rds,  the   rules 
attempted  to  build  a  pile  of  straight  edge  pieces.   At 
this  time,  both  riAKE-A-PILE  and  PICK-A-PILE  became  equally 
likely  candidates.   The  wrong  choice  was  made,  and  the 
program  proceeded  to  arbitrarily  make  piles  in  an  almost 
hysterical  fashion. 
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CHAPTER  4.   CONCLUSIONS 

4 . 1   Major  Results 

It  is  believed  by  many  researchers  that  an  important 
quality  of  intelligent  behavior  is  the  ability  to  improve 
performance  with  experience,  and  that  generalizing  a  concept 
is  a  critical  aspect  of  learning.   In  CRAPS,  a  form  of 
generalization  occurs  when  a  repeating  subsequence  is 
collapsed  into  a  repetition  unit.   Although  quite  restricted 
in  scope,  CRAPS  shows  how  a  system  might  learn  procedures,  a 
form  of  learning  which  is  believed  to  be  very  important. 
Although  there  are  a  number  of  very  difficult  technical 
problems,  it  seems  to  us  that  with  more  powerful  pattern 
recognition  techniques  and  more  powerful  generalizations  of 
control  statements,  this  approach  could  be  very  fruitful. 

With  less  ambitious  designs,  CRAPS  can  be  viewed  as  a 
programming  aid  for  the  designer  and  implementer  of  a  large 
AI  problem-solving  knowledge  base.   One  of  the  most  error 
prone  and  difficult  tasks  in  the  development  of  an  AI 
problem-solving  system  is  the  fine-tuning  of  the  system 
with  heuristic  controls  to  minimize  search  times  through  a 
large  data  base  of  facts.   The  CRAPS  approach  might  be 
useful  in  fine-tuning  a  declarative  knowledge  base  as 
opposed  to  'hand-compiling'  control  elements  to  effect 
competent  perfomance  in  such  a  system. 


The  power  of  the  descriptions  produced  is  limited  by 
both  the  expressive  power  of  the  CRAPS  primitives,  and  the 
level  of  sophistication  of  the  pattern  recognition 
algorithms  that  have  been  developed.   For  example,  during 
repetition  detection  no  notion  of  similar  subsequence  is 
used;  furthermore,  it  is  not  possible  for  alternation  to 
appear  within  repetitions.   Despite  this,  the  algorithms 
are  powerful  enough  to  detect  interesting  patterns  and 
subsequently  interesting  heuristics. 

Our  experiments  suggest  that  this  approach  will  have 
the  best  chance  of  success  when  the  encoding  of  the 
knowledge  of  the  problem  domain  is  such  that  on  any  execu- 
tion cycle  a  small  number  of  productions  and  only  one 
instantiation  of  each  production  is  applicable.   For 
example,  the  initial  segment  of  the  CRAPS  description  for 
the  jigsaw  puzzle  problem  (see  Appendix  2  )  specifies 
repeatedly  picking  a  piece  from  the  heap  and  placing  it  in 
a  pile.   In  actuality,  the  number  of  instantiations  of  the 
LOOK-AT-PIECE-IN-HEAP  production  during  this  cycle  is  equal 
to  the  number  of  pieces  currently  in  the  heap.   The  CRAPS 
description  does  not  specify  which  instantiation  to  choose; 
but  only  the  name  of  the  production  to  choose.   This  affects 
the  subsequent  ordering  of  the  pieces  in  the  pile,  and 
possibly  the  preconditions  of  the  units  which  follow  in  the 
description.   This  is  demonstrated  by  the  REMEMBER-CURRENT- 
OBJECT  simple  unit  following  the  EMPTY-HEAP  simple  unit. 
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The  preconditions  for  the  unit  specifies  that  the  piece  to 
remember  (the  first  in  the  pile)  should  have  a  straight 
edge.   But  this  depends  on  the  first  piece  which  was 
picked  up  from  the  heap,  that  is,  the  instantiation  of 
PICK-UP-OBJECT-IN-VIEW  that  was  selected.   This  suggests 
one  way  in  which  CRAPS  could  evolve:   the  execution  traces 
should  include  not  only  productions  but  also  instantiations 
of  productions.   Furthermore,  the  initial  segmentation  of 
the  trace  sequence  into  subsequences  (or  subproblems) 
specified  by  the  human  expert  is  not  explicit  in  the  final 
CRAPS  description,  and  therefore  contextual  or  goal  infor- 
mation should  be  included.   However,  recognizing  patterns 
in  such  sequences  is  a  much  more  difficult  problem.   The 
approach  outlined  in  this  thesis  is  viewed  as  an  initial 
step  in  the  understanding  of  this  more  general  problem. 

The  meta-rule  construct  we  have  defined  seems  quite 
effective.   Although  limited  in  scope,  the  meta-rules 
contain  quite  accurate  and  useful  control  information. 
The  suggestion  of  a  single  rule  in  the  RHS  of  a  meta-rule 
effects  a  limited  or  local  modification.   More  substantial 
statements  of  control  can  be  effected  by  allowing 
arbitrary  CRAPS  descriptions  in  the  RHS.   However,  a 
correspondingly  more  sophisticated  analysis  of  both  the 
Solution  sequence  and  CRAPS  description  would  be  required. 
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4 . 2   Future  Research 

There  are  many  directions  in  which  the  present  work 
can  proceed.   Pattern  analysis  is  a  long  standing  problem 
which  obviously  should  be  a  continued  research  endeavor. 
The  techniques  outlined  in  this  thesis  leave  much  room  for 
improvement  and  extension.   The  control  language  should  be 
redefined  to  allow  more  powerful  control  primitives 
containing  contextual  or  goal/subgoal  information.   An 
interesting  question  is  the  effect  parallel  machine 
architectures  could  have  on  the  kind  of  analysis  performed 
in  this  thesis. 

The  meta-rule  construct  requires  more  research  in 
allowing  for  more  powerful  statements,  such  as  CRAPS 
descriptions  in  the  RHS  and  perhaps  data-dependent  condi- 
tions in  the  LHS .   The  implementation  of  the  meta-rules, 
and  in  particular  the  selection  algorithm  for  'suggested' 
rules  can  be  improved  significantly  by  allowing  for  back- 
tracking and  other  ordered  search  regimes. 

With  more  powerful  meta-rules,  the  correctness  of  the 
complete  CRAPS  description  would  be  less  critical;  we  might 
then  hope  to  get  successful  performance  with  meta-rules  alone, 
as  suggested  by  the  partial  success  on  the  fifth  puzzle. 
However,  this  would  probably  require  more  understanding  of 
some  difficult  context  and  control  problems. 

The  existing  system  could  be  extended  along  the  lines 
alluded  to  earlier.   The  utility  and  importance  of  both 
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counter-examples  and  data  sequences  (providing  more  specific 
knowledge  about  the  problem  domain)  has  been  noticed  by 
many  researchers.   The  CRAPS  system  could  be  extended  to 
include  both  types  of  information.   Further,  the  existing 
system  does  not  include  the  human  engineering  aspects  of 
the  type  illustrated  by  Davis'  system,  and  should  be 
extended  in  this  direction. 

In  Angluin  [2,4],  it  has  been  shown  that  the  pattern 
recognition  problem  attempted  in  this  thesis  is  NP-complete. 
We  have  attempted  to  provide  a  good  heuristic  approximation 
for  these  problems.   A  theoretical  basis  of  the  feasibility 
of  a  more  general  approach  is  obviously  needed.   For 
instance,  what  is  the  necessary  power  (i.e.  context  free, 
regular  expressions)  of  both  the  control  language  and  the 
underlying  knowledge  representation  model  to  effect 
competent  performance  in  ill-defined  problem  domains 
(including  problems  for  which  no  algorithmic  procedure  is 
known,  such  a  computer  vision) . 

In  conclusion,  the  scope  of  the  problems  outlined  in 
this  thesis  are  of  paramount  importance  to  the  field  of 
artificial  intelligence.   Any  small  step  made  in  solving 
the  more  general  problems  of  course  is  significant  for  the 
entire  field.   We  do  not  claim  to  have  provided  a  solution, 
but  we  have  identified  a  starting  point,  and  a  direction 
in  which  to  proceed  towards  the  solution  of  this 
enormously  complex  problem. 
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AF'PENIiIX  1 

APBREyiATEn  TRACE  FOR  F'UZZLE  PROBLEM. 

THE  SEOUENCE  HAS  BEEN  CONDENSED.  THE  HUMAN 
EXF-ERT  DIVIDED  THE  TRAINING  SESSION  INTO  SEVERAL 
SESSIONS  AS  INDICATED  BELOW.   THE  SUBSEQUENCES 
WERE  SERIALLY  ANALYZED.  AND  THE  RESULTING  (SUB) 
DESCRIFTIONS  WERE  CONCATENATED.   ONE  FINAL  PASS  OF 
THE  REPETITION  DETECTION  ALGORITHM  WAS  APPLIED  TO  THIS 
SEQUENCE  PRODUCING  THE  FINAL  DESCRIPTION  IN  APPENDIX  2. 


PRODUCTION  NAME  ABBREVIATION  TABLE 

LOOK-AT-PIECE-IN-HEAP   L-A-P-I-H 

LOOK-AT-OBJECT-IN-HAND   L-A-0-I-H 

CLOSE-EYES   C-E 

OBJECT- IN-HAND-IN-VIEW   0-I-H-I-V 

PICK-UP-OBJECT-IN-VIEW   p-U-0-I-V 

PUT-PIECE-DOWN-IN-HEAP   P-P-D-I-H 

EMPTY-HEAP   E-H 

FIND-COLOR-OF-PIECE   F-C-O-P 

FORGET-COLOR-OF-PIECE   FT-C-O-P 

PIECE-HAS-STRAIGHT-EDGE   P-H-S-E 

PIECE-HAS-CURRENT-COLOR   P-H-C-C 

START-PUZZLE   S-P 

PIECE-FITS-IN-PUZZLE   P-F-I-P 

FIT-PIECE-IN-PUZZLE   F-P-I-P 

PIECE-PUT -IN-PUZZLE   P-P-I-P 

PUZZLE-IS-FINISHEI P-I-F 

MAKE-A-PILE   M-A-P 

PICK-A-PILE   P-A-P 

PICK-OBJECT-FROM-PILE   P-O-F-P 

PUT-OBJECT-IN-PILE   P-O-I-P 

FORGET-CURRENT-PILE   F-C-P 

PILE-IS-EMPTY   P-I-E 

DESTROY-A-PILE   D-A-P 

THERE-ARE-NO-PILES   T-A-N-P 

LOOK-AT-FIRST-IN-PILE   L-A-F-I-P 

LOOK-AT-NEXT-IN-PILE   L-A-N-I-P 

REMEMBER-CURRENT-PILE   R-C-P 

REMEMBERED-PILE-IS-CURRENT   ...  R-P-I-C 

FORGET-REMEMBERED-PILE   F-R-P 

REMEMBER-CURRENT-OBJECT   R-C-0 

FORGET-REMEMBERED-OBJECT   F-R-0 

REMEMBERED-OBJECT-IN-VIEW   ....  R-O-I-V 

REMEMBERED-OBJECT-IN-HANI R-O-I-H 


TRACE  SEQUENCE  FOR  PUZZLE  PROBLEM 
(PROnUCTION  NAMES  ARE  ABBREVIATED) 

EMPTY  THE  HEAP  AND  PILE  THE  PIECES: 


<L- 


A-P-I-H 

CL-A-P-I- 

-H    L-A-P-I-H 

L-A--P-  1- 

-H    L-A-P-I-H 

L-A-P-I- 

-H    L-A-P-I-H 

L-A-P-I- 

-H    L-A-P-I-H 

T-A-N- P 

.1 

(8    133) 

(138    139)) 

u-o--i-y 

CL-A-P-I 

-H    L-A-P-I-H 

L-A-P-I- 

-H    L-A-P-I-H 

L-A-P-I-H  L-A-P-I-H  L-A-P-I-H  L-A-P-I-H 
L-A-P-I-H  L-A-P-I-H  L-A-P-I-H  L-A-P-I-H 
L-A-P-I-H  L-A-P-I-H  L-A-P-I-H  L-A-P-I-H 
L-A-P-I-H  L-A-P-I-H  L-A-P-I-H  L-A-P-I-H 


(P- 

L-A-P-I-H  L-A-P-I-H  L-A-P-I-H  L-A-P-I-H 
L-A-P-I-H  L-A-P-I-H  L-A-P-I-H  L-A-P-I-H 
L-A-P-I-H  L-A-P-I-H  L-A-P-I-H  L-A-p-I-H  L-A-P-I-H  L-A-P-I-H 
L-A-P-I-H  L-A-P-I-H  L-A-P-I-H  L-A-P-I-H  L-A-P-I-H  L-A-P-I-H 
R-C-0  F-C-O-P  C-E  T-A-N-P  ] 

(137  139)   (140  145)) 
(M-A-P 

CP-P-D-I  -H  S-F'  0-I-H-I-V  L-A-P-I-H  L-A-P-I-H  L-A-P-I-H 
L-A-P-I-H  L-A-P-I-H  L-A-P-I-H  L-A-P-I-H  L-A-P-I-H  L-A-P-I-H 
L-A-P-I-H  L-A-P-I-H  L-A-P-I-H  L-A-P-I-H  L-A-P-I-H  L-A-P-I-H 
L-A-P-I-H  L-A-P-I-H  L-A-P-I-H  L-A-P-I-H  L-A-P-I-H  L-A-p-I-H 
L-A-P-I-H  L-A-P-I-H  L-A-P-I-H  R-C-0  F-C-O-P  C-E 
T-A-N-P  1 

( 143  144  145)   ( 146  155) ) 
(L-A-P-I-H 

CP-O-F-P  L-A-P-I-H  L-A-P-I-H  L-A-P-I-H  L-A-P-I-H  L-A-P-I-H 
L-A-P-I-H  L-A-P-I-H  L-A-P-I-H  L-A-P-I-H  L-A-P-I-H  L-A-P-I-H 
L-A-P-I-H  L-A-P-I-H  L-A-P-I-H  L-A-P-I-H  L-A-P-I-H  L-A-P-I-H 
L-A-P-I-H  L-A-P-I-H  L-A-P-I-H  L-A-P-I-H  L-A-P-I-H  L-A-P-I-H 
R-C-0  F-C-O-P  C-E  D-A-P  F-C-P  R-C-P  3 

(150  151  152  153  154)   (156  157)) 
(P-U-0-I-V 

CL-A-F-I-P  P-H-5-E  L-A-P-I-H  L-A-P-I-H  L-A-P-I-H  L-A-P-I-H 
L-A-P-I-H  L-A-P-I-H  L-A-P-I-H  L-A-P-I-H  L-A-P-I-H  L-A-P-I-H 
L-A-P-I-H  L-A-P-I-H  L-A-P-I-H  L-A-P-I-H  L-A-p-I-H  L-A-P-I-H 
L-A-P-I-H  L-A-P-I-H  L-A-P-I-H  L-A-P-I-H  L-A-p-I-H  L-A-P-I-H 
L-A-P-I-H  R-C-0  F-C-O-P  C-E  D-A-P  F-C-P 
R-C-P  D 

(151  152  157)   (158  163)) 
(P-O-I-P 

CP-P-D-I-H  S-P  0-I-H-I-V  L-A-F-I-P  P-H-S-E  L-A-P-I-H 
L-A-P-I-H  L-A-P-I-H  L-A-P-I-H  L-A-P-I-H  L-A-P-I-H  L-A-P-I-H 
L-A-P-I-H  L-A-P-I-H  L-A-P-I-H  L-A-P-I-H  L-A-P-I-H  L-A-P-I-H 
L-A-P-I-H  L-A-P-I-H  L-A-P-I-H  L-A-P-I-H  L-A-P-I-H  L-A-P-I-H 
L-A-P-X-H  L-A-P-I-H  L-A-P-I-H  L-A-P-I-H  R-C-0  F-C-O-P 
C-E  P-A-P  F-C-P  R-C-P  D 

(161  162  163)   (164  168)) 
(L-A-P-I-H 

CL-A-F-I-P  P-H-S-E  L-A-P-I-H  L-A-P-I-H  L-A-P-I-H  L-A-P-I-H 
L-A-P-I-H  L-A-P-I-H  L-A-P-I-H  L-A-P-I-H  L-A-P-I-H  L-A-P-I-H 
L-A-P-I-H  L-A-P-I-H  L-A-P-I-H  L-A-P-I-H  L-A-P-I-H  L-A-P-I-H 
L-A-P-I-H  L-A-P-I-H  L-A-P-I-H  L-A-P-I-H  L-A-P-I-H  L-A-P-I-H 
R-C-0  F-C-O-P  C-E  D-A-P  F-C-P  R-C-P  3 

(152  166  168)   (169  170)) 

<p-u~o-i-v 
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L-A-F-I-H 

L-A-P-I-H 

L-A-P-I-H 

F--H-S-E    L- 

-A-P-I-H    L- 

-A-P-I-H 

L-A-F-I-H 

L-A-P-I-H 

L-A-P-I-H 

L-A-P-I-H 

L-A-P-I-H 

L-A-P-I-H 

R-C-P    J 

CL-A-F-I-P  L-A-P-I-H  L-A-P-I-H 
L-A-P-I-H  L-A-P-I-H  L-A-P-I-H 
L-A-P-I-H  L-A-P-I-H  L-A-P-I-H 
L-A-P-I-H  L-A-P-I-H  L-A-P-I-H 
F<-C-0  F-C-O-P  C-E  D-A-P  F-C-P 

(G3  163  167  170)   (171  176)) 
(P-O-I-P 

CP-P-n-I-H  S-P  0-I-H-I-y  L-A-F-I-P  L-A-P-I-H  L-A-P-I-H 
L-A-P-I-H  L-A-P-I-H  L-A-P-I-H  L-A-P-I-H  L-A-P-I-H  L-A-p-I-H 
P-H-S-E  L-A-P-I-H  L-A-P-I-H  L-A-P-I-H  L-A-P-I-H  L-A-p-I-H 
L-A-P-I-H  L-A-P-I-H  L-A-P-I-H  L-A-P-I-H  L-A-P-I-H  L-A-p-I-H 
L-A-P-I-H  L-A-P-I-H  L-A-P-I-H  R-C-0  F-C-O-P  C-E 
D-A-P  F-C-P  P-C-P  D 

(174  175  176)   ( 177  181  )  ) 


(THIS  SEQUENCE  REPEATED  22  TIMES) 


(E-H 

CL-A-F-I-P  R-C-0  F-C-O-P  C-E  D-A-P  F-C-P 

R-C-P  1 
(152  465  467)   (468  468)) 
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BUILD  A  F'lLE  OF  PIECES  WITH  STRAIGHT  EDGES  AND  START  FUZZLE 
SET  UP  THE  PILE  FIRST: 


(R-C-P 

CL-A-F-I-P  R-C-0  F-C-O-P  C-E  D-A-P  F-C-P  J 
(152  465  467)   (469  470)) 
(L-A-F-I-P 

CR-P--I-C  R-C-P  F-R-P  R-C-0  F-C-O-P  C-E 

D-A-P  F-C-P  1 
(152  470)   (471  472) ) 
(R-C-O 

CP-O-F-P  L-A-N-I-P  P-H-S-E  P-H-S-E  F-C-O-P  C-E 

R-P-I-C  R-C-P  F-R-P  D-A-P  F-C-P  1 
(152  153  465  466  472)    (473  474)) 
(L-A-N-I-P 

CR-O-I-y  R-C-0  F-R-0  P-O-F-P  P-H-S-E  P-H-S-E 
F-C-O-P  C-E  R-P-I-C  R-C-F'  F-R-P  D-A-p 
F-C-P  3 
(472  474)   (475  478)  ) 
(P-O-F-P 

CL-A-N-I-P  R-C-0  P-H-S-E  F-C-O-P  C-E  D-A-P 

F-R-0  R-P-I-C  R-C-P  F-R-P  F-C-P  D 
(152  153  466  477  478)   (479  483)) 
(F-C-P 

tP-O-I-P  S-P  0-I-H-I-y  L-A-F-I-P  R-C-0  P-H-S-E 
F-C-O-P  C-E  n-A-P  F-R-0  R-P-I-C  R-C-P 
F-R-P  D 
(152  153  481  482  483)   (484  487)) 
(M-A-P 

CP-A-P  S-P  P-H-S-E  0-I-H-I-V  R-C-0  F-C-O-P 

C-E  F-R-0  F-R-P  : 
(155  482  483  486  487)   (488  497)) 
(F-C-P 

CP-O-F-P  R-C-0  P-H-S-E  F-C-O-P  C-E  D-A-P 

R-C-P  F-R-0  F-R-P  D 
(492  493  494  495  496)   (498  501)) 
(P-A-P 

CR-C-0  P-H-S-E  F-C-O-P  C-E  F-R-0  F-R-P  D 
(500  501 )   (502  504) ) 
(L-A-F-I-P 

CD-A-P  F-C-P  R-P-I-C  R-C-P  R-C-0  P-H-S-E 

F-C-O-P  C-E  F-R-0  F-R-P  1 
(481  503  504)   (505  506)) 
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NOW  BUILIi  THE  F'lLEJ 


(L-A-N-I-F- 

CD-A-F'  F-C-F'  R-P-I-C  R-C-F'  R-C-0  F-C-O-F' 

C-E  F-R-0  F-R-F-  1 
<503  504  506)   (507  508)) 
(P-O-F-P 

CL-A-N-I-P  R-C-0  P-H-S-E  F-C-O-P  C-E  T-A-P 

F-C-P  R-P-I-C  R-C-P  F-R-0  F-R-P  ] 
(431  492  503  504  506)   (509  511)) 
<F-C-P 

CP-O-I-P  S-P  0-I-H-I-V  R-C-0  P-H-S-E  F-C-O-P 

C-E  ri-A-P  R-P-I-C  R-C-P  F-P-0  F-R-P  3 
(503  504  509  510  511)   (512  515)) 
(P-A-P 

CH-A-P  S-P  0-I-H-I-y  R-C-0  P-H-S-E  F-C-O-P 

C-E  F-R-0  F-R-P  3 
(497  510  511  514  515)   (516  518)) 
(P-O-I-P 

Cri-A-P  F-C-F  L-A-F-I-P  R-C-P  S-P  O-J-H-I-V 

R-C-0  P-H-S-E  F-C-O-P  C-E  F-R-0  F-R-P  3 
(493  510  511  517  518)   (519  523)) 
(F-C-P 

CL-A-F-I-P  R-C-0  P-H-S-E  F-C-O-P  C-E  D-A-P 

R-C-P  F-R-0  F-R-F'  1 
(517  521  523)   (524  527) ) 
(P-A-P 

CR-C-0  P-H-S-E  F-C-O-P  C-E  F-R-0  F-R-P  3 
(526  527)   (528  530)  ) 
(L-A-P-I-P 

rn-A-P  F-C-P  R-P-I-C  R-C-P  R-C-0  P-H-S-E 

F-C-O-P  C-E  F-R-0  F-R-P  3 
(509  529  530)   (531  532)) 


(THIS  SEQUENCE  REPEATED  13  TIMES) 


(P-O-F-P 

CL-A-N-I-P  R-O-I-V  R-C-0  p-H-S-E  P-H-S-E  F-C-O-P 
C-E  D-A-P  F-C-P  R-P-I-C  R-C-P  F-R-0 
F-R-P  3 
(892  899  900  905  906)   (907  911)) 
(F-C-P 

CP-O-I-P  S-P  0-I-H-I-y  L-A-F-I-P  R-O-I-V  R-C-0 
P-H-S-E  P-H-S-E  F-C-O-P  C-E  R-O-I-H  D-A-P 
R-P-I-C  R-C-P  F-R-O  F-R-P  3 
(899  900  909  910  911)   (912  915)) 
(P-A-P 

CM-A-P  S-P  0-I-H-I-V  R-O-I-V  R-C-O  P-H-S-E 
P-H-S-E  F-C-O-P  C-E  R-O-I-H  F-R-0  F-R-P  : 
(497  910  911  914  915)   (916  918)) 
(P-O-I-P 

CD-A-P  F-C-P  L-A-F-I-P  R-C-P  S-P  0-I-H-I-V 
R-O-I-V  R-C-0  P-H-S-E  P-H-S-E  F-C-O-P  C-E 
R-O-I-H  F-R-0  F-R-P  D 


-  125  - 


<891  910  911  917  918)   (919  923)) 
(F-R-0 

CL-A-F-I-P  R-O-I-".'  R-C-0  F-H-S-E  P-H-S-E  F-C-O-P 

C-E  D-A-P  F-C-P  R-C-P  F-R-P  2 
(917  921  923)   (924  925)) 
(L-A-F-I-P 

CR-C-0  P-H-S-E  P-H-S-E  F-C-O-P  C-E  ri-A-P 

F-C-P  R-C-P  F-R-P  D 
(923  925)   (926  929)  ) 
(P-O-F-P 

CR-O-I-y  R-C-0  L-A-N-I-P  P-H-S-E  F-C-O-P  C-E 

ri-A-P  F-C-P  R-C-P  F-R-P  : 
(927  929)   (930  934 ) ) 
<S-P 

CP-O-I-P  0-I-H-I-V  L-A-F-I-P  R-C-0  p-H-S-E  F-C-O-P 

C-E  li-A-P  F-C-P  R-C-P  F-R-P  1 
(917  918  932  933  934)   (935  941)) 
(L-A-F-I-F' 

CD-A-P  P-H-S-E  F-C-P  R-C-0  R-C-P  F-R-P 

F-C-O-P  C-E  3 
(0  11  936)   (942  943) ) 
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PUIUn  OUTSIDE  EDGES  OF  PUZZLE  FIRST: 


(L-A-N-I-P 

CF-O-F-P  P-H-S-E  R-C-0  F-C-O-P  C-E  D-A-P 

F-C-P  R-C-P  F-R-P  3 
<6  8  11  113  943)   (944  947) ) 
<P-0-F-P 

CL-A-N-I-P  P-F-I-P  P-H-S-E  R-C-0  F-C-O-P  C-E 

n-A-P  F-C-P  R-C-P  F-R-P  D 
(6  8  11  946  947)   (948  952)) 
(P-P-I-P 

CP-O-I-P  0-I-H-I-y  L-A-F-I-P  P-F-I-P  P-H-S-E  R-C-0 

F-C-O-P  C-E  ri-A-P  F-C-P  R-C-P  F-R-P  3 
(8  11  950  951  952)   (953  957)) 
(P-P-I-P 

CF-P-I-P  P-O-I-P  0-I-H-I-y  L-A-F-I-P  P-F-I-P  P-H-S-E 
R-C-0  F-C-O-P  C-E  D-A-P  F-C-P  R-C-P 
F-R-P  : 
(114  951  952  957)   (958  965)) 
(L-A-F-I-P 

CD-A-P  F-C-P  R-C-P  F-R-P  3 
(8  950  964)   (966  967) ) 


(THIS  SEQUENCE  REPEATED  14  TIMES) 


(P-O-F-P 

CP-F-I-P  P-H-S-E  P-H-S-E  R-C-O  F-C-O-P  C-E 

D-A-P  F-C-P  R-C-P  F-R-P  D 
(8  11  1282  1297  1299)   (1300  1304)) 
(F-P-I-P 

CP-O-I-P  P-F-I-P  0-I-H-I-y  P-H-S-E  P-H-S-E  R-C-0 
F-C-O-P  C-E  D-A-P  P-I-E  F-C-P  R-C-P 
F-R-P  3 
(8  11  1302  1303  1304)   (1305  1311)) 
(P-P-I-P 

CF-P-I-P  P-O-I-P  P-F-I-P  0-I-H-I-V  P-H-S-E  P-H-S-E 
R-C-0  F-C-O-P  C-E  D-A-P  P-I-E  F-C-P 
R-C-P  F-R-P  ] 
(1294  1303  1304  1311)   (1312  1319)) 
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SET  UP  A  pile: 


(F-C-P 

CIi-A-P  P-I-E  R-C-P  F-R-P  : 

(8  11  1302)   <1320  1323)) 
(P-A-P 

CF-R-P  1 

(1322  1323)   (1324  1326)) 
(L-A-F-I-P 

Cti-A-P  F-C-P  R-P-I-C  R-C-P  F-R-P  ] 

(112  1325  1326)   (1327  1328)) 
(R-C-0 

CP-O-F-P  L-A-N-I-P  F-C-O-P  C-E  D-A-P  F-C-P 
R-P-I-C  R-C-P  F-R-P  1 

(112  1319  1325  1326  1328)   (1329  1330)) 
(F-C-O-P 

CR-O-I-U  R-C-0  F-R-0  P-O-F-P  L-A-N-I-P  C-E 
n-A-P  F-C-P  R-P-I-C  R-C-P  F-R-P  3 

(1328  1330)   (1331  1332)) 
(L-A-N-I-P 

CP-H-C-C  FT-C-O-F'  F-C-O-P  R-O-I-V  R-C-0  F-R-O 
P-O-F-P  C-E  D-A-P  F-C-P  R-P-I-C  R-C-P 
F-R-P  3 

( 1328  1332)   (1333  1335)  ) 
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BU 


ILD  A  PILE  OF  PIECES  WITH  THE  SAHE  COLOR: 


<L-A-N-I-P 

tp-H-C-C  FT-C-O-P  F-C-O-P  R-C-0  F-R-0  P-O-F-P 

C-E  D-A-P  F-C-P  R-P-I-C  R-C-P  F-R-P  3 
(1334  1335)   (1336  1337)  ) 

tL-A-N-I-P  P-F-I-P  P-H-C-C  FT-C-O-P  F-C-O-P  R-C-0 
C-E  n-A-P  F-R-0  F-C-P  R-P-I-C  R-C-P 

F-R-P  ] 
(1319  1325  1326  1336  1337)   (1338  1341)) 
(F-C-P  ^  ^ 

[;p_0-l-r  F-P-I-P  0-I-H-I-V  L-A-F-I-P  P-F-I-P  P-H-C-C 

PT_C_0-F'  F-C-O-P  R-C-0  C-E  n-A-P  F-R-0 

R-P-I-C  R-C-P  F-R-P  ] 
(1325  1326  1339  1340  1341)   (1342  1345)) 

lt^-(,-f^'    F-P-I-f  0-I-H-l-V  P-F-I-P  P-H-C-C  FT-C-O-P 

F-C-O-P  R-C-0  C-E  F-R-0  F-R-P  3 
(3  1340  1341  1344  1345)   (1346  1348)) 
(P-O-I-P 

ll,-(^-f    p-I-E  F-C-P  R-C-P  F-P-I-P  0-I-H-I-V 

P_F_I_p  p_H-C-C  FT-C-O-P  F-C-O-P  R-C-0  C-E 

F-R-0  F-R-P  3 
(1302  1340  1341  1347  1348)    (1349  1353)) 

";;P_0-F-P  P-F-I-P  P-H-C-C  FT-C-O-P  F-C-O-P  R-C-0 
C-E  D-A-P  R-C-P  F-R-0  F-R-P  1 
(1347  1348  1351  1352  1353)   (1354  1357)) 

(  P  -  A  -  F' 

tp-p-I-p  P-H-C-C  FT-C-O-P  F-C-O-P  R-C-0  C-E 

F-R-0  F-R-P  3 
(1356  1357)   (1358  1360)) 

ti,_A-p  F-C-P  R-P-I-C  R-C-P  P-F-I-P  P-H-C-C 

pj_C_0-p  F-C-O-P  R-C-0  C-E  F-R-O  F-R-P  3 
(1339  1359  1360)   (1361  1362)) 

(THIS  SEQUENCE  REPEATEH  5  TIMES) 


"''''■^P-O-F-P  L-A-N-I-P  P-H-C-C  FT-C-O-P  F-C-O-P  R-O-I-V 
R-C-0  C-E  n-A-P  F-C-P  R-P-I-C  R-C-P 
F-R-P  3 
(1473  1486  1493  1494  1496)   (1497  1498)) 

^^'"?R-C-0  L-A-N-I-P  P-H-C-C  FT-C-O-P  F-C-O-P  C-E 
ri-A-P  F-C-P  R-P-I-C  R-C-P  F-R-P  3 
(1496  1498)   (1499  1503)) 

^'''CP-O-I-P  0-I-H-I-V  L-A-F-I-P  R-C-0  P-H-C-C  FT-C-O-P 
F-C-O-P  C-E  n-A-P  R-P-I-C  R-C-P  F-R-P  3 
(1493  1494  1501  1502  1503)   (1504  1507)) 
(P-A-P 
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CM-A-F-  0-I-H-I-V  R-C-0  P-H-C-C  FT-C-O-F'  F-C-O-F 

C-E  F-R-P  3 
(3  1502  1503  1506  1507)   (1508  1510)) 
<P-0-I-F' 

Cn-A-P  F-C-P  L-A-F-I-P  R-C-P  0-I-H-I-V  R-C-0 

P-H-C-C  FT-C-O-P  F-C-O-P  C-E  F-R-P  3 
(1485  1502  1503  1509  1510)   (1511  1515)) 
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BUILD  PUZZLE  FROM  F'lECES  UITH  COMMON  COLOR! 


(L-A-F-I-P 

tn-A-P  F-C-P  R-C-P  F-R-P  3 
(1509  1513  1515)   (1516  1517)) 
<P-0-F-P 

CL-A-N-I-P  P-F-I-P  R-C-0  P-H-C-C  FT-C-O-P  F-C-O-P 

C-E  n-A-P  F-C-P  R-C-P  F-R-P  3 
(1509  1510  1513  1514  1517)   (1518  1522)) 
(F-P-I-P 

CP-O-I-P  0-I-H-I-y  L-A-F-I-P  P-F-I-P  R-C-0  P-H-C-C 
FT-C-O-P  F-C-O-P  C-E  D-A-P  F-C-P  R-C-P 
F-R--P  3 
(1509  1510  1520  1521  1522)   (1523  1531)) 
(P-P-I-P 

CF-P-I-P  P-O-I-P  O-I-H-I-V  L-A-F-I-P  P-F-I-P  R-C-O 
P-H-C-C  FT-C-O-P  F-C-O-P  C-E  H-A-P  F-C-P 
R-C-P  F-R-P  J 
(1509  1521  1522  1531)   (1532  1539)) 


(THIS  SEQUENCE  REPEATED  5  TIMES) 


(L-A-F-I-P 

CD-A-P  F-C-P  R-C-P  F-R-P  D 
(1509  1634  1654)   (1656  1657)) 
(P-O-F-P 

CP-F-I-P  R-C-0  P-H-C-C  FT-C-O-P  F-C-O-P  C-E 

D-A-P  F-C-P  R-C-P  F-R-P  3 
(1509  1510  1634  1655  1657)   (1658  1662)) 
(F-P-I-P 

CP-O-I-P  P-F-I-P  O-I-H-I-V  R-C-0  P-H-C-C  FT-C-O-P 
F-C-O-P  C-E  D-A-P  P-I-E  F-C-P  R-C-P 
F-R-P  D 
(1509  1510  1660  1661  1662)   (1663  1671)) 
(P-P-I~P 

CF-P-I-P  P-O-I-P  P-F-I-P  0-I-H-I-V  R-C-0  p-H-C-C 
FT-C-O-P  F-C-O-P  C-E  D-A-P  P-I-E  F-C-P 
R-C-P  F-R-P  3 
(1652  1661  1662  1671)   (1672  1679)) 
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WHAT  FOLLOWED  WAS  A  REPETITION  OF  THE  PRECEEniNG  SEQUENCES; 
SET  UP  A  PILE 

BUILD  A  PILE  OF  PIECES  WITH  SAME  COLOR 
BUILD  THE  PUZZLE  FROM  THIS  PILE 


FINALLYt  CLEAN  UP  AND  STOP: 


(F-C-P 

CP-I-F  D-A-P  P-I-E  R-C-P  F-R-P  D 

<8  11  1732)   (1786  1789) ) 
<P-A-P 

rP-I-F  F-R-P  a 

(1732  1787)   (1790  1792)) 
(D-A-P 

CP-I-F  F-C-P  F-I-E  R-C-P  F-R-P  D 

(1787  1791  1792)   (1793  1797)) 
(P-A-P 

CP-I-F  F-R-F  2 

(3  1794  1796)   (1798  1800)) 
(D-A-P 

CP-I-F  P-I-E  F-C-P  R-C-P  F-R-P  : 

(2  1799  1800)   (1801  1805)) 
(F-R-P 

CT-A-N-P  P-I-F  1 

(470  1804  1805)   (1806  1807)) 
(P-I-F 

CT-A-N-P  3 

(1804  1805)   (1808  1808)) 


**»  END  OF  TRACE  *** 
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AF-F-ENDIX    2 


F'RETTY    F'RINTED    CftAF'S    OUTPUT    FOR    FUZZLE    FS. 


(LOOK-AT-FIECE-IN-HEAF' 

(THERE-ARE-NO-FILES) ) 
(F'ICK-UP-OBJECT-IN-VIEW 

(LOOK-AT-FIECE-IN-HEAR 
CLOSE-EYES 
FIND-COLOR-OF-F-IECE 
THERE-ARE-NO-FILES 
REhEHBER-CURRENT-OEiJECT)  ) 
<MAKE-A-FILE 

<LOOK-AT-F'IECE-IN-HEAF' 
CLOSE-EYES 

OBJECT- IN-HAND- 1 N-U I EU 
PUT-F'IECE-nOUN-IN-HEAP 
FIND-COLOR-OF-PIECE 
START-PUZZLE 
THERE-ARE-NO-PILES 
REHEMBER-CURRENT-OBJECT)  ) 
CREPEAT     (WHILE   (LOOK-AT-PIECE-IN-HEAP ) ) 
(UNTIL   (EMPTY-HEAP)) 
« 
(LOOK-AT-PIECE-IN-HEAP 
( OR .  * 

(CLOSE-EYES 
FIND-COLOR-OF-PIECE 
PIECE-HAS-STRAIGHT-EDGE 
FORGET-CURRENT-PILE 
DESTROY-A-PILE 
REMEMBER-CURRENT-PILE 
REMEMBER-CURRENT-OBJECT ) 
(CLOSE-EYES 
FIND-COLOR-OE-PIECE 
FORGET-CURRENT-PILE 
DESTROY-A-PILE 
REMEMBER-CURRENT-PILE 
REMEMBER-CURRENT-OBJECT ) 
(CLOSE-EYES 
FIND-COLOR-OF-PIECE 
PIECE-HAS-STRAIGHT-EDGE 
PICK-OBJECT-FROM-PILE 
FORGET-CURRENT-PILE 
DESTROY-A-PILE 
REMEMBER-CURRENT-PILE 
REMEMBER-CURRENT-OBJECT  )  )  ) 
(PICK-UP-OBJECT- IN- VIEW 
(OR.* 

(CLOSE-EYES 
FIND-COLOR-OF-PIECE 
FORGET-CURRENT-PILE 
DESTROY-A-PILE 
LOOK-AT-FIRST-IN-PILE 
REMEMBER-CURRENT-PILE 
REMEMBER-CURRENT-OBJECT ) 


(LOOK-AT-PIECE-IN-HEAP 
CLOSE-EYES 
FIND-COLOR-OF-FIECE 
F'lECE-HAS-STRAIGHT-EEiGE 
FORGET-CURRENT-PILE 
DESTROY-A-FILE 
LOOK-AT-FIRST-IN-F'ILE 
REMEM£iER-CURRENT-PILE 
REMEMBER-CURRENT-OBJEC  T ) 

(LOOK-AT-PIECE-IN-HEAP 
CLOSE-EYES 
FINIi-COLOR-OF-PIECE 
FORGET-CURRENT-PILE 
DESTROY-A-PILE 
LOOK-AT-FIRST-IN-PIt  E 
REHEMBER-CURRENT-PILE 
REHEHBER-CURRENT-OBJECT  )  )  ) 
( PUT-OBJECT- IN-PILE 

(OR.* 

(CLOSE-EYES 
OBJECT-IN-HAND-IN-yiEW 
PUT-PIECE-DOUN-IN-HEAP 
EMPTY-HEAP 
FIND-COLOR-OF-PIECE 
START-PUZZLE 
FORGET-CURRENT-PILE 
DESTROY-A-PILE 
LOOK-AT-FIRST- IN-PILE 
REMEMBER-CURRENT-PILE 
REMEMBER-CURRENT-OB JECT ) 

(LOOK-AT-PIECE-IN-HEAP 
CLOSE-EYES 

OB JECT- IN-HAND- I N-U I EU 
PUT-PIECE-DOWN- I N-HEAP 
FIND-COLOR-OF-PIECE 
PIECE-HAS-STRAIGHT-EDGE 
START-PUZZLE 
FORGET-CURRENT-PILE 
DESTROY-A-PILE 
LOOK-AT-F I RST- IN-PILE 
REMEMBER-CURRENT-PILE 
REMEMBER-CURRENT-OB JECT ) 

(LOOK-AT-PIECE-IN-HEAP 
CLOSE-EYES 

OBJECT- IN-HAND- IN- VIEW 
PUT-PIECE-DOWN- I N-HEAP 
FIND-COLOR-OF-PIECE 
START-PUZZLE 
FORGET-CURRENT-PILE 
DESTROY-A-PILE 
LOOK-AT-F I RST- IN-PILE 
REMEMBER-CURRENT-PILE 
REMEMBER-CURRENT-OBJECT)  )  ) 

3 
(EMPTY-HEAP 

(CLOSE-EYES 

FIND-COLOR-OF-PIECE 

FORGET-CURRENT-PILE 

DESTROY-A-PILE 
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LOOK-AT-FIRST-IN-FILE 
REHEMBER-CURRENT-FILE 
REMEMBER-CURRENT-OBJECT ) ) 

(REHEHBER-CURRENT-PILE 
(CLOSE-EYES 
FIND-COLOR-OF-F-IECE 
FORGET-CURRENT-FILE 
riESTROY-A-PILE 
LOOK-AT-FIRST-IN-F'ILE 
REHEMPER-CURRENT-OEi  JECT  )  ) 

(LOOK-AT-FIRST-IN-PILE 

(CLOSE-EYES 
FIND-COLOR-OF-FIECE 
FORGET-CURRENT-FILE 
DESTROY-A-FILE 
REMEMBER-CURRENT-FILE 
REMEMBEREP-PILE-IS-CURRENT 
FORGET-REHEHBEREn-PILE 
REMEMBER-CURRENT-OBJECT  )  ) 
(REHEhBER-CURRENT-OBJECT 
(CLOSE-EYES 
FIND-COLOR-OF-FIECE 
PIECE-HAS-STRAIGHT-EDGE 
FICK-OBJECT-FROM-PILE 
FORGET -CURRENT -PILE 
riESTROY-A-PILE 
LOOK-AT-NEXT-IN-PILE 
REtiEHBER-CURRENT-PILE 
REMEHBERED-PILE-IS-CURRENT 
FORGET-REHEHBEREIi-PILE)  ) 
(LOOK-AT-NEXT-IN-PILE 
(CLOSE-EYES 
FIND-COLOR-OF-PIECE 
PIECE-HAS-STRAIGHT-EUGE 
PICK-OBJECT-FROM-PILE 
FORGET-CURRENT-PILE 
HESTROY-A-FILE 
REMEHBER-CURRENT-PILE 
REMEMBERED-PILE-IS-CURRENT 
FORGET-REMEHBERED-PILE 
REMEMBER-CURRENT-OBJECT 
FORGET-REMEMBEREIi-OBJECT 
REMEMBERED-OBJECT-IN-VIEU) > 
( PICK-OB JECT-FROH-PILE 
(CLOSE-EYES 
FINB-COLOR-OF-PIECE 
PIECE-HAS-STRAIGHT-EDGE 
FORGET-CURRENT-PILE 
riESTROY-A-PILE 
LOOK-AT-NEXT-IN-PILE 
REMEHBER-CURRENT-PILE 
REHEHBEREB-PILE-IS-CURRENT 
FORGET-REHEMBERED-PILE 
REHEMBER-CURRENT-OBJECT 
FORGET-REMEMBEREB-OBJECT ) ) 
(FORGET-CURRENT-PILE 

(CLOSE-EYES 

OBJECT- IN-HAND- I N-V I EW 

FIND-COLOR-OF-PIECE 

PIECE-HAS-STRAIGHT-EDGE 
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START-PUZZLE 

F'UT-OBJECT-IN-PILE 

riESTROY-A-PILE 

LOOK-AT-FIRST-IN-F'ILE 

REHEMPER-CURRENT-PILE 

REMEMBEREti-PILE-IS-CURRENT 

FORGET-REHEMBEREIi-PILE 

REHEHPER-CURRENT-OBJECT 

FORGET-REHEMBERED-OEiJECT)  ) 
(MAKE-A-PILE 

(CLOSE-EYES 

OBJECT- IN-HAND- I N-y I EW 

FIND-COLOR-OF-PIECE 

START-PUZZLE 

PICK-A-PILE 

FORGET-REMEMBEREIi-PILE 

REHEHBER-CURRENT-OBJECT 

FORGET-REMEHBEREIi-OBJECT  )  ) 
<FORGET-CURRENT-PILE 

(CLOSE-EYES 

FIND-COLOR-OF-PIECE 

PIECE-HAS-STRAIGHT-EDGE 

PICK-OBJECT-FROM-PILE 

DESTROY-A-PILE 

REMEHBER-CURRENT-PILE 

FORGET-REHEMBERED-PILE 

REHEHBER-CURRENT-OBJECT 

FORGET-REHEHBEREIi-OB  JECT  )  ) 
< PICK-A-PILE 

(CLOSE-EYES 

FIND-COLOR-OF-PIECE 

PIECE-HAS-STRAIGHT-EDGE 

FORGET-REHEHBERED-PILE 

REHEHBER-CURRENT-OBJECT 

FORGET-REHEHBERED-OBJECT) ) 
(LOOK-AT-FIRST-IN-PILE 

(CLOSE-EYES 

FIND-COLOR-OF-PIECE 

PIECE-HAS-STRAIGHT-EDGE 

FORGET-CURRENT-PILE 

DESTROY-A-PILE 

REHEHBER-CURRENT-PILE 

REHEHBERED-PILE-IS-CURRENT 

FORGET-REMEHBERED-PILE 

REHEHBER-CURRENT-OBJECT 

FORGET-REHEHBERED-OBJECT) ) 
[REPEAT     (WHILE   NIL) 

(UNTIL   (PIECE-HAS-STRAIGHT-EDGE 

REHEHBERED-OBJECT-IN-VIEW ) ) 

CREPEAT     (WHILE   NIL) 

(UNTIL   (PIECE-HAS-STRAIGHT-EDGE) ) 
« 
(LOOK-AT-NEXT-IN-PILE 
(CLOSE-EYES 
FIND-COLOR-OF-PIECE 
PICK-OBJECT-FROH-PILE 
FORGET-CURRENT-PILE 
DESTROY-A-PILE 
REMEHBER-CURRENT-PILE 
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REHEHPERED-PI LE- I  S-CUfvRENT 
FORGET-REhEHPERED-FILE 
REMEHBER-CURRENT-OPJECT 
FORGET-REHEMPEREn-OPJECT) ) 

: 

CREF'EAT  (UHILE       ( F'lECE-HAS-STRAIGHT-EDGE )  > 

(UNTIL       (REMEHPERED-OPJECT-IN-VIEU) ) 

<FICts-OPJECT-FROM-FILE 

(CLOSE-EYES 

FIND-COLOR-OF-FIECE 

F'lECE-HAS-STRAIGHT-EDGE 

FORGET-CURRENT-PILL 

DESTROY-A-FILE 

LOOK-AT-NEXT-IN-PILE 

REMEHBER-CURRENT-FILE 

REMEMPEREIi-PILE-IS-CURRENT 

FORGET-REHEHPERED-PILE 

REHEHPER-CURRENT-OPJECT 

FORGET-REHEMPERED-OPJECT) ) 
(FORGET-CURRENT-PILE 

(CLOSE-EYES 

OBJECT- IN-HAND- IN- VIEW 

FIND-COLOR-OF-PIECE 

PIECE-HAS-STRAIGHT-EIiGE 

START-PUZZLE 

PUT-OP JECT- IN-PI LE 

riESTROY-A-PILE 

LOOK-AT-FIRST-IN-PILE 

REhEMPER-CURRENT-PILE 

REHEHPERED-PI LE- I S-CURRENT 

FORGET-REHEHPERED-PILE 

REMEHPER-CURRENT-OPJECT 

FORGET-REHEHPERED-OPJECT) ) 
(PICK-A-PILE 

(CLOSE-EYES 

OBJECT- IN-HAND- I N-yiEU 

FIND-COLOR-OF-PIECE 

PIECE-HAS-STRAIGHT-EDGE 

START-PUZZLE 

HAKE-A-PILE 

FORGET-REHEHBERED-PILE 

REHEMBER-CURRENT-OBJECT 

FORGET-REHEHPERED-OBJECT) ) 
( PUT-OP JECT- IN-PI LE 

(CLOSE-EYES 

OP JECT- IN-HAND- IN-VIEW 

FIND-COLOR-OF-PIECE 

PIECE-HAS-STRAIGHT-EDGE 

START-PUZZLE 

FORGET-CURRENT-PILE 

DESTROY-A-PILE 

LOOK-AT-FIRST-IN-PILE 

REHEMPER-CURRENT-PILE 

FORGET-REHEHPERED-PILE 

REMEMPER-CURRENT-OBJECT 

FORGET-REHEHPERED-OBJECT) ) 
(FORGET-CURRENT-PILE 

(CLOSE-EYES 
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FIND-COLOR-OF-PIECE 

F'lECE-HAS-STRAIGHT-EDGE 

DESTROY-A-PILE 

LOOK-AT-FIRST-INt-F'ILE 

REHEHBER-CURRENT-PILE 

FORGET-REMEMPERED-FILE 

REMEMBER-CURRENT-OPJECT 

FORGET-REHEhBEREI'-OBJECT  )  ) 

<PICK-A-FILE 

(CLOSE-EYES 

FIND-COLOR-OF-PIECE 

PIECE-HAS-STRAIGHT-EDGE 

FORGET-REMEMBEREIi-PILE 

REMEMPER-CURRENT-OBJECT 

FORGET-REMEMBERED-OBJECT) ) 

(LOOK-AT-FIRST-IN-PILE 
(CLOSE-EYES 
FIND-COLOR-OF-PIECE 
PIECE-HAS-STRAIGHT-EDGE 
FORGET -CURRENT-PILE 
DESTROY-A-PILE 
REHEHBER-CURRENT-PILE 
REMEMBERED-PILE-IS-CURRENT 
FORGET-REHEMBERED-PILE 
REMEHBER-CURRENT-OBJECT 
FORGET-REMEMBERED-OBJECT ) ) 


D 

( PICK-OB JECT-FROM-PILE 
(CLOSE-EYES 
FIND-COLOR-OF-PIECE 
PIECE-HAS-STRAIGHT-EDGE 
FORGET-CURRENT-PILE 
DESTROY-A-PILE 
LOOK-AT-NEXT-IN-PILE 
REMEMBER-CURRENT-PILE 
REMEMBERED-PILE-IS-CURRENT 
FORGET-REMEMBERED-PILE 
REMEMBER-CURRENT-OBJECT 
FORGET-REMEMBERED-OBJECT 
REMEMBERED-OBJECT-IN-VIEW) ) 

(FORGET-CURRENT-PILE 
(CLOSE-EYES 

OBJECT- IN-HAND- I N-V I EW 
FIND-COLOR-OF-PIECE 
PIECE-HAS-STRAIGHT-EDGE 
START-PUZZLE 
PUT-OBJECT- I N-P I LE 
DESTROY-A-PILE 
LOOK-AT-FIRST-IN-PILE 
REMEMBER-CURRENT-PILE 
REMEMBERED-PILE-IS-CURRENT 
FORGET-REMEMBERED-PILE 
REMEMBER-CURRENT-OBJECT 
FORGET-REMEMBERED-OBJECT 
REMEMBERED-OPJECT-IN-VIEU 
REMEMBERED-OBJECT-IN-HAND)  ) 

(PICK-A-PILE 
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(CLOSE-EYES 

OBJECT- IN-HAND- I N-V I EU 

FIND-COLOR-OF-PIECE 

PIECE-HAS-STRAIGHT-EtiGE 

START-PUZZLE 

MAKE-A-PILE 

PORGET-REHEMBERED-PILE 

REMEHBER-CURRENT-OBJECT 

FORGET-REMEHBERED-OBJECT 

REMEMBEREIi-OBJECT-IN-VIEU 

REMEMBERED-OBJECT-IN-HAND)  ) 

( PUT-OBJECT- IN-P I LE 
(CLOSE-EYES 

OBJECT- IN-HAND- IN- VIEW 
FIND-COLOR-OF-PIECE 
PIECE-HAS-STRAIGHT-EDGE 
START-PUZZLE 
FORGET -CURRENT-PILE 
DESTROY-A-PILE 
LOOK-AT-FIRST-IN-PILE 
REHEHBER-CURRENT-PILE 
FORGET-REMEHBERED-PILE 
REMEHBER-CURRENT -OBJECT 
FORGET-REMEHBERED-OBJECT 
REMEMBERED-OBJECT-IN-VIEU 
REMEMBERED-OBJECT-IN-HAND)  ) 

(FORGET-REMEMBERED-OBJECT 
(CLOSE-EYES 
FIND-COLOR-OF-PIECE 
PIECE-HAS-STRAIGHT-EDGE 
FORGET -CURRENT -PILE 
DESTROY-A-PILE 
LOOK-AT-FIRST-IN-PILE 
REMEMBER-CURRENT-PILE 
FORGET-REMEMBERED-PILE 
REMEMBER-CURRENT-OBJECT 
REMEMBERED-OBJECT-IN-yiEW)  ) 

(LOOK-AT-FIRST-IN-PILE 
(CLOSE-EYES 
FIND-COLOR-OF-PIECE 
PIECE-HAS-STRAIGHT-EDGE 
FORGET-CURRENT-PILE 
DESTROY-A-PILE 
REMEMBER-CURRENT-PILE 
FORGET-REMEMBERED-PILE 
REMEMBER-CURRENT-OBJECT ) ) 

(PICK-OBJECT-FROM-PILE 
(CLOSE-EYES 
FIND-COLOR-OF-PIECE 
PIECE-HAS-STRAIGHT-EDGt 
FORGET-CURRENT-PILE 
DESTROY-A-PILE 
LOOK-AT-NEXT-IN-PILE 
REMEMBER-CURRENT-PILE 
FORGET-REMEMBERED-PILE 
REMEMBER-CURRENT-OBJECT) ) 
(START-PUZZLE 

(CLOSE-EYES 

OBJECT- IN-HAND- I N-y I EU 

FIND-COLOR-OF-PIECE 
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FIECE-HAS-STRAIGHT-EUGE 

PUT-OBJECT- I N-P I LE 

FORGET-CUFvftENT-PILE 

HESTROY-A-PILE 

LOOK-AT-FIRST-IN-PILE 

REMEMPER-CUR'RENl  -PILE 

FORGET-REHEMBERED-PILE 

REMEHBER-CURRENT-OBJECT) ) 
(LOOK-AT-FIRST-IN-PILf: 

(FORGET-CURRENT-PILE 

DESTROY-A-PILE 

REMEMBER-CURRENT-PILE 

FORGET-REHEMBEREri-PILE  )  ) 
CREPEAT     (WHILE   ( LOOK-AT-NEXT-IN-PI LE ) ) 
(UNTIL   NIL) 

CREPEAT     (WHILE   NIL) 

(UNTIL   (PIECE-FITS-IN-PUZZLE) ) 

(LOOK-AT-NEXT-IN-PILE 
(CLOSE-EYES 
FINIi-COLOR-OF-PIECE 
PIECE-HAS-STRAIGHT-EDGE 
PICK-OBJECT-FROh-PILE 
FORGET-CURRENT-PILE 
DESTROY-A-PILE 
REHEhBER-CURRENT-PILE 
FORGET-REMEMBERED-PILE 
REHEMBER-CURRENT-OBJECT  )  ) 

D 

CREPEAT     (WHILE   (LOOK-AT-NEXT-IN-PILE 

PIECE-FITS-IN-PUZZLE)  ) 
(UNTIL   NIL) 

(PICK-OBJECT-FROH-PILE 

(CLOSE-EYES 

FINII-COLOR-OF-PIECE 

PIECE-HAS-STRAIGHT-EDGE 

PIECE-FITS-IN-PUZZLE 

FORGET-CURRENT-PILE 

DESTROY-A-PILE 

LOOK-AT-NEXT-IN-PILE 

REMEMBER-CURRENT-PILE 

FORGET-REMEMBERED-PILE 

REMEMBER-CURRENT-OBJECT)  ) 
(FIT-PIECE-IN-PUZZLE 

(CLOSE-EYES 

OBJECT -IN-HAND- IN- VIEW 

FIND-COLOR-OF-PIECE 

PIECE-HAS-STRAIGHT-EDGE 

PIECE-FITS-IN-PUZZLE 

PUT-OBJECT-IN-PILE 

FORGET-CURRENT-PILE 

DESTROY-A-PILE 

LOOK-AT-FIRST-IN-PILE 

REMEMBER-CURRENT-PILE 

FORGET-REMEMBERED-PILE 

REMEMBER-CURRENT-OBJECT)  ) 
( PIECE-PUT- IN-PUZZLE 
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(CLOSE-EYES 

OBJECT- IN-HAND- 1 N-V I EU 
FINIi-COLOR-OF-FIECE 
PIECE-HAS-STRAIGHT-EDGE 
PIECE-FITS-IN-F'UZZLE 
FIT-PIECE-IN-PUZZLE 
PUT-OHJECT-IN-PILE 
FORGET-CURRENT-PILE 
riESTROY-A-PILE 
LOOK-AT-FIRST-IN-PILE 
REMEMBER-CURRENT-PILE 
FORGET-REMEMBERED-PILE 
REMEMBER-CURRENT-OHJECT) ) 
(LOOK-AT-FIRST-IN-PILE 

(FORGET-CURRENT-PILE 
HESTROY-A-PILE 
REMEMBER-CURRENT-PILE 
FORGET-REHEME<ERED-PILE  )  ) 


] 

( PICK-OB JECT-FROM-PILL 
(CLOSE-EYES 
FIND-COLOR-OF-PIECE 
PIECE-HAS-STRAIGHT-EDGE 
PIECE-FITS-IN-PUZZLE 
FORGET-CURRENT-PILE 
DESTROY-A-PILE 
REHEMBER-CURRENT-PILE 
FORGET-REMEhBERED-PILE 
REHEHBER-CURRENT-OBJECT)  ) 

(FIT-PIECE-IN-PUZZLE 
(CLOSE-EYES 

OBJECT -IN-HAND- IN- VIEW 
FIND-COLOR-OF-PIECE 
PIECE-HAS-STRAIGHT-EDGE 
PIECE-FITS-IN-PUZZLE 
PUT-OBJECT-IN-PILE 
FORGET-CURRENT-PILE 
DESTROY-A-PILE 
PILE-IS-EMPTY 
REMEMBER-CURRENT-PILE 
FORGET-REMEMBERED-PILE 
REHEHBER-CURRENT-OBJECT) ) 
(PIECE-PUT- I N-PUZZLE 
(CLOSE-EYES 

OBJECT- IN-HAND- I N-V I EW 
FIND-COLOR-OF-PIECE 
PIECE-HAS-STRAIGHT-EDGE 
PIECE-FITS-IN-PUZZLE 
FIT-PIECE-IN-PUZZLE 
PUT-OBJECT-IN-PILE 
FORGET-CURRENT-PILE 
DESTROY-A-PILE 
REMEHBER-CURRENT-PILE 
FORGET-REHEHBERED-PILE 
PILE-IS-EHPTY 
REHEHBER-CURRENT-OBJECT)  ) 
[REPEAT     (WHILE   NIL) 


-  141  - 


(UNTIL       (PUZZLE-IS-FINISHEIIO  ) 

(FORGET-CURRENT-PILE 

(PILE-IS-EHFTY 

riESTROY-A-FILE 

REHEMFER-CURRENT-FILf 

FORGET-REHEMBEREIi-FILE  )  ) 
(FICK-A-PILE 

(FORGET-REHEMEtERED-PILE)  ) 
(LOOK-AT-FIRST-IN-PILE 

(FORGET-CURRENT-PILE 

riESTROY-A-PILE 

REMEMPER-CURRENT-PILE 

REMEHBERED-PILE-IS-CURRENT 

FORGET-REHEHBERED-PILE) ) 
(REMEMBER-CURRENT-OKJECT 

(CLOSE-EYES 

FINIi-COLOR-OF-PIECE 

PICK-OEiJECT-FROH-PILE 

FORGET-CURRENT-PILE 

HESTRDY-A-PILE 

LOOK-AT-NEXT-IN-PILE 

REHEMBER-CURRENT-PILE 

REMEHBERED-PILE-IS-CURRENT 

FORGET-REMEMBERED-PILE)  > 
(FIND-COLOR-OF-PIECE 

(CLOSE-EYES 

PICK-OBJECT-FROH-PILE 

FORGET-CURRENT-PILE 

DESTROY-A-PILE 

LOOK-AT-NEXT-IN-PILE 

REMEHBER-CURRENT-PILE 

REHEMBERED-PILE-IS-CURRENT 

FORGET-REMEMBERED-PILE 

REMEMBER-CURRENT -OBJECT 

FORGET-REMEMBERED-OBJECT 

REMEMBERED-OBJECT-IN-VIEU>  ) 
(LOOK-AT-NEXT-IN-PILE 

(CLOSE-EYES 

FINIi-COLOR-OF-PIECE 

FORGET-COLOR-OF-PIECE 

PIECE-HAS-CURRENT-COLOR 

PICK-OBJECT-FROM-PILE 

FORGET-CURRENT-PILE 

riESTROY-A-PILE 

REMEMBER-CURRENT-PILE 

REMEMBERED-PILE-IS-CURRENT 

FORGET-REMEMBEREIi-PILE 

REMEMBER-CURRENT-OBJfCT 

FORGET-REMEMBEREIi-OBJECT 

REMEMBERED-OBJECT-IN-VIEW)  ) 
[REPEAT     (UHILE   NIL) 

(UNTIL   (REMEMBEREIi-OBJECT-IN-VIEW>  ) 

CREPEAT     (WHILE   NIL) 

(UNTIL   (PIECE-HAS-CURRENT-COLOR) ) 
« 
(LOOK-AT-NEXT-IN-PILE 
(OR.* 
(CLOSE-EYES 
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FIND-COLOR-OF-PIECE 
FORGET-COLOR-OF -PIECE 
F-IECE-HAS-CURRENT-COLOR 
F-IECE-FITS-IN-PUZZLE 
PICK-OPJECT-FROM-PILE 
FORGET-CURRENT-PILE 
PESTROY-A-PILE 
REMEMBER-CURRENT-PILE 
REMEMBERED-PILE-IS-CURRENT 
FORGET-REMEHBERED-PILE 
REHEH&ER-CURRENT -OBJECT 
FORGET-REHEHBERED-OBJECT 
REHEMBERED-OBJECT-IN-VIEU) 
(CLOSE-EYES 
FIND-COLOR-OF-PIECE 
PICK-OBJECT-FROM-PILE 
FORGET-CURRENT-PILE 
HESTROY-A-PILE 
REHEHBER-CURRENT-PILE 
REHEHBERED-PILE-IS-CURRENT 
FORGET-REHEMPERED-PILE 
REMEMBER-CURRENT-OBJECT 
FORGET-REMEMBERED-OBJECT  > ) ) 

3 

CREPEAT     (UHILE   < FORGET-COLOR-OF-PIECE 

PIECE-HAS-CURRENT-COLOR) ) 
(UNTIL   (REMEHBEREIi-OBJECT-IN-UIEU)  ) 

(PICK-OBJECT-FROM-PILE 
( OR .  ♦ 

(CLOSE-EYES 
FINIi-COLOR-OF-PIECE 
FORGET-COLOR-OF-PIECE 
PIECE-HAS-CURRENT-COLOR 
PIECE-FITS-IN-PUZZLE 
FORGET-CURRENT-PILE 
DESTROY-A-PILE 
LOOK-AT-NEXT-IN-PILE 
REMEHBER-CURRENT-PILE 
REHEMBERED-PILE-IS-CURRENT 
FORGET-REMEMBERED-PILE 
REMEMBER-CURRENT-OBJECT 
FORGET-REMEMBEREB-OB JECT ) 

(CLOSE-EYES 
FINIi-COLOR-OF-PIECE 
FORGET-COLOR-OF-PIECE 
PIECE-HAS-CURRENT-COLOR 
FORGET-CURRENT-PILE 
DESTROY-A-PILE 
LOOK-AT-NEXT-IN-PILE 
REMEMBER-CURRENT-PILE 
REMEMBERED-PILE-IS-CURRENT 
FORGET-REMEMBERED-PILE 
REMEMBER-CURRENT-OBJECT 
F0R6ET-REMEMBERED-0BJECT) ) ) 

(FORGET-CURRENT-PILE 
( OR .  * 

(CLOSE-EYES 
OBJECT- IN-HAND-IN-VIEW 
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FIND-COLOR-OF-FIECE 

FORGET-COLOR-OF-PIECE 

PIECE-HAS-CURRENT-COLOR 

FIECE-FITS-IN-FUZZLE 

FIT-FIECE-IN-F'UZZLE 

FUT-OBJECT-IN-PILE 

IiESTROY-A-FILE 

LOOK-AT-FIRST-IN-FILE 

REMEHBER-CURRENT-FILE 

REMEHBERED-FILE-IS-CURRENT 

FORGET-REMEHPEREri-FILF 

REMEHFER-CURRENT -OBJECT 

FORGET-REMEHKERED-OBJFCT) 

(CLOSE-EYES 
OBJECT- IN-HAND- IN- VIEW 
FINIi-COLOR-OF-FIECE 
FORGET -COLOR-OF-P I ECE 
PIECE-HAS-CURRENT-COLOR 
PUT-OPJECT-IN-PILE 
DESTROY-A-PILE 
LOOK-AT-FIRST-IN-PILE 
REMEMBER-CURRENT-PILE 
REMEHKERED-PILE-IS-CURRENT 
FORGET-REMEMBERED-PILE 
REMEHEiER-CURRENT-OEUECT 
FORGET-REMEMBERED-OBJECT) ) ) 
<PICK-A-PILE 

( OR .  * 

(CLOSE-EYES 
OBJECT- IN-HAND- IN- VIEW 
FIND-COLDR-OF-PIECE 
FORGET-COLOR-OF-PIECE 
PIECE-HAS-CURRENT-COLOR 
PIECE-FITS-IN-PUZZLE 
FIT-PIECE-IN-PUZZLE 
HAKE-A-PILE 

FORGET-REMEHBERED-PILE 
REHEHBER-CURRENT-OBJECT 
FORGET-REMEMBERED-OBJECT ) 

(CLOSE-EYES 
OBJECT- IN-HAND- IN-VIEW 
FIND-COLOR-OF-PIECE 
FORGET-COLOR-OF-PIECE 
PIECE-HAS-CURRENT-COLOR 
MAKE-A-PILE 

FORGET-REMEMBERED-PILE 
REMEMBER-CURRENT-OBJECT 
FORGET-REMEMBERED-OBJECT ) ) ) 
(PUT-OBJECT-IN-PILE 

(OR.* 

(CLOSE-EYES 
OBJECT-IN-HAND-IN-VIEU 
FIND-COLOR-OF-PIECE 
FORGET-COLOR-OF-PIECE 
PIECE-HAS-CURRENT-COLOR 
FORGET -CURRENT -PILE 
DESTROY-A-PILE 
LOOK-AT-FIRST-IN-PILE 
REMEMBER-CURRENT-PILE 
FORGET-REMEMBERED-PILE 
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REMEMBER-CURRENT-OBJECT 
FORGET -REHEMBERED-OBJECT) 

(CLOSE-EYES 
OBJECT- IN-HAND- IN- VIEW 
FINB-COLOR-OF-PIECE 
FORGET-COLOR-OF-FIECE 
F-IECE-HAS-CURRENT-COLOR 
FORGET-CURRENT-FILE 
PILE-IS-EMPTY 
tiESTROY-A-PILE 
REHEMBER-CURRENT-PILE 
FORGET-REMEhBERED-PILE 
REMEHBER-CURRENT-OBJECT 
FORGET-REMEMBEREB-OBJECT) 

(CLOSE -EYES 
OBJECT- IN-HAND- IN- VIEW 
FIND-COLOR-OF-PIECE 
FORGET-COLOR-OF-PIECE 
PIECE-HAS-CURRENT-COLOR 
PIECE-FITS-IN-PUZ2LE 
FIT-PIECE-IN-PUZZLE 
FORGET-CURRENT-PILE 
DESTROY-A-PILE 
LOOK-AT-FIRST-IN-PILE 
REMEMPER-CURRENT-PILE 
FORGET-REMEMBERED-PILE 
REhEMBER-CURRENT-OBJECT 
FORGET-REHEHBERED-OBJECT) ) ) 
(FORGET-CURRENT-PILE 

<  OR .  * 

(CLOSE-EYES 
FIND-COLOR-OF-PIECE 
FORGET-COLOR-OF-PIECE 
PIECE-HAS-CURRENT-COLOR 
DESTROY-A-PILE 
REMEMBER-CURRENT-PILE 
FORGET-REMEHBERED-PILE 
REMEMBER-CURRENT-OBJECT 
FORGET-REMEMBERED-OBJECT) 

(CLOSE-EYES 
FIND-COLOR-OF-PIECE 
FORGET-COLOR-OF-PIECE 
PIECE-HAS-CURRENT-COLOR 
PIECE-FITS-IN-PUZZLE 
DESTROY-A-PILE 
LOOK-AT-FIRST-IN-PILE 
REMEMBER-CURRENT-PILE 
FORGET-REMEMBERED-PILE 
REMEMBER-CURRENT-OBJECT 
FORGET-REMEMBERED-OBJECT )  )  ) 
(PICK-A-PILE 

( OR .  ♦ 

(CLOSE-EYES 
FIND-COLOR-OF-PIECE 
FORGET-COLOR-OF-PIECE 
PIECE-HAS-CURRENT-COLOR 
PIECE-FITS-IN-PUZZLE 
FORGET-REMEMBERED-PILE 
REMEMBER-CURRENT-OBJECT 
FORGET-REMEMBERED-OBJECT ) 
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(CLOSE-EYES 
FIND-COLOR-OF-FIECE 
FORGET-COLOR-OF-FIECE 
F'lECE-HAS-CURRENT-COLOR 
FORGET -REHEHBERED-F' I LE 
REMEMBER-CURRENT-OPJECT 
FORGET-REHEhFERED-OEiJECT  )  )  ) 
(LOOK-Ar-FIRST-IN-FILE 

<  OR . » 

(CLOSE-EYES 
FIND-COLOR-OF-PIECE 
FORGET-COLOR-OF-FIECE 
F I ECE-HAS- CURRENT-COLOR 
FIECE-FITS-IN-PUZZLE 
FORGE T-CURRENT -FILE 
DESTROY-A-PILE 
REHEhBER-CURRENT-PILE 
REMEMBERED-FILE-IS-CURRENT 
FORGET-REHEHBEREIi-PILE 
REMEMBER-CURRENT-OBJECT 
FORGET-REMEMBERED-OBJECT ) 

(CLOSE-EYES 
FIND-COLOR-OF-FIECE 
FORGET -COLOR-OF -PIECE 
PIECE -HAS- CURRENT-COLOR 
FORGET -CURRENT -PILE 
DESTROY-A-PILE 
REhEMBER-CURRENT-PILE 
REMEMBERED-PILE-IS-CURRENT 
FORGET-REHEMBERED-PILE 
REMEHBER-CURRENT -OBJECT 
FORGET-REMEHBERED-OBJECT) ) ) 


3 

( FORGET-REMEHBEREIi-OB  JECT 

(OR.* 

(CLOSE-EYES 
FIND-COLOR-OF-PIECE 
FORGET-COLOR-OF-PIECE 
PIECE-HAS-CURRENT-COLOR 
PICK-OB JECT-FROh-PILE 
FORGET-CURRENT-PILE 
riESTROY-A-PILE 
LOOK-AT-NEXT-IN-PILE 
REHEHBER-CURRENT-PILE 
REHEMBERED-PILE-IS-CURRENT 
FORGET-REHEHBERED-PILE 
REMEHBER-CURRENT-OBJECT 
REHEMBEREIi-OBJECT-IN-VIEW) 

(CLOSE-EYES 
FIND-COLOR-OF-PIECE 
FORGET-COLOR-OF-PIECE 
PIECE-HAS-CURRENT-COLOR 
PICK-OBJECT-FROM-PILE 
FORGET-CURRENT-PILE 
IiESTROY-A-PILE 
REHEHBER-CURRENT-PILE 
REHEMBERED-PILE-IS-CURRENT 
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FORGET-REMEMBEREIi-FILE 
REMEMBER-CURRENT-OPJECT 
REHEhEiERED-OBJECT-IN-VIEU)  )  ) 
(PICK-OBJECT-FROH-F'ILE 
( OR .  * 

(CLOSE-EYES 
FINIi-COLOR-OF-PIECE 
FORGET-COLOR-OF-PIECE 
P I ECE-H AS-CURRENT -COLOR 
PIECE-FITS-IN-PUZZLE 
FORGET -CURRENT-PILE 
DESTROY-A-PILE 
LOOK-AT-NEXT-IN-PILE 
REhEMBER-CURRENT-PILE 
REHEMBERED-PILE-IS-CURRENT 
FORGET -REHEHBEREn-P I LE 
REMEHBER-CURRENT-GBJECT ) 
(CLOSE-EYES 
FINIi-COLOR-OF-PIECE 
FORGET-COLOR-OF-PIECE 
PI ECE-H AS-CURRENT-COLOR 
FORGET -CURRENT-PILE 
DESTROY-A-PILE 
REMEMBER-CURRENT-PILE 
REMEMBERED-PILE-IS-CURRENT 
FORGET-REMEHBEREIi-PILE 
REMEMBER-CURRENT-OBJECT ) 
(CLOSE-EYES 
FIND-COLOR-OF-PIECE 
FORGET-COLOR-OF-PIECE 
PIECE-HAS-CURRENT-COLOR 
PIECE-FITS-IN-PUZZLE 
FORGET-CURRENT-PILE 
DESTROY-A-PILE 
REMEMBER-CURRENT-PILE 
REMFMBERED-PILE-IS-CURRENT 
FORGET-REMEMBERED-PILE 
REMEMBER-CURRENT-OBJECT) ) ) 
(FORGET-CURRENT-PILE 
( OR .  * 

(CLOSE-EYES 
OBJECT- IN-HAND- IN- VIEW 
FIND-COLOR-OF-PIECE 
FORGET-COLOR-OF-PIECE 
PIECE-HAS-CURRENT-COLOR 
PUT-OBJECT-IN-PILE 
DESTROY-A-PILE 
LOOK-AT-FIRST-IN-PILE 
REMEMBER-CURRENT-PILE 
REMEMBERED-PILE-IS-CURRENT 
FORGET-REMEMBERED-PILE 
REMEMBER-CURRENT-OBJECT ) 
(CLOSE-EYES 
OBJECT- IN-HAND- IN-VIEW 
FIND-COLOR-OF-PIECE 
FORGET-COLOR-OF-PIECE 
PIECE-HAS-CURRENT-COLOR 
PIECE-FITS-IN-PUZZLE 
FIT-PIECE-IN-PUZZLE 
PUT-OBJECT-IN-PILE 
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DESTROY-A-FILE 
LOOK-AT-FIRST-IN-PILE 
REMEHPER-CURRENT-FILE 
REMEMBERED-F-ILE-IS-CURRENT 
FORGET-REMEHPERED-PILE 
REMEMEiER-CURRENT-OBJECT ) 
(CLOSE-EYES 
OBJECT -IN-HAND- IN- VIEW 
riNli-COLOR-OF-F'IECE 
FORGET-COLOR-OF-PIECE 
F'lECE-HAS-CURRENT-COLOR 
FUT-OPJECT-IN-FILE 
HESTROY-A-F'ILE 
PILE-IS-EMPTY 
REMEHKER-CURRENT-PILE 
REMEMHEREIi-PILE-IS-CURRENT 
FORGET-REHEHBERED-PILE 
REMEHBER-CURRENT-OBJECT) ) ) 
(PICK-A-PILE 

cor<.* 

(CLOSE-EYES 
OBJECT- IN-HAND- I N-yiEU 
FIND-COLOR-OF-PIECE 
FORGET-COLOR-OF-PIECE 
PIECE-HAS-CURRENT-COLOR 
MAKE-A-PILE 

FORGET -REMEMBERED-P I LE 
REMEHBER-CURRENT-OBJECT ) 
(CLOSE-EYES 
OBJECT -IN-HAND- I N-y I EU 
FIND-COLOR-OF-PIECE 
FORGET-COLOR-OF-PIECE 
PIECE-HAS-CURRENT-COLOR 
HAKE-A-PILE 

FORGET-REMEMBERED-PILE 
PIECE-FITS-IN-PUZZLE 
FIT-PIECE-IN-PUZZLE 
REMEMBER-CURRENT-OBJECT) ) ) 
<PUT-OBJECT-IN-PILE 
( OR .  * 

(CLOSE-EYES 
OBJECT- IN-HAND- I N-y I EU 
FIND-COLOR-OF-PIECE 
FORGET-COLOR-OF-PIECE 
PIECE-HAS-CURRENT-COLOR 
FORGET -CURRENT -PILE 
DESTROY-A-PILE 
LOOK-AT-FIRST-IN-PILE 
REHEHBER-CURRENT-PILE 
FORGET-REMEMBERED-PILE 
REMEMBER-CURRENT-OBJECT ) 

(CLOSE-EYES 
OBJECT- IN-HAND- I N-y I EU 
FIND-COLOR-OF-PIECE 
FORGET-COLOR-OF-PIECE 
PIECE-HAS-CURRENT-COLOR 
FORGET-CURRENT-PILE 
DESTROY-A-PILE 
PIECE-FITS-IN-PUZZLE 
FIT-PIECE-IN-PUZZLE 
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LOOK-AT-FIRST-IN-F'ILE 
REMEMBER-CURRENT-PILE 
FORGET-REMEHPER'ED-F'ILE 
REHEMKER-CURRENT-OPJECT)  )  ) 
CREPEAT     (WHILE   ( LOOK-AT-FIRST-IN-PILE ) ) 
(UNTIL   (PILE-IS-EHPTY) ) 

(LOOK-AT-FIRST-IN-PILE 
( OR .  * 
(CLOSE-EYES 

FIND-COLOR-OF-PIECE 

FORGET-COLOR-OF-PIECE 

P I ECE-H AS-CURRENT-COLOR 

FIECE-FITS-IN-PUZZLE 

F0RGET-CURREN1-PILE 

DEETROY-A-PILE 

REMEMBER-CURRENT-PILE 

FORGET-REHEMFEREIi-PILE 

REMEMBER-CURRENT-OBJECT ) 
(FORGET -CURRENT-PILE 

DESTROY-A-PILE 

REMEhBER-CURRENT-PILE 

FORGE  T-REMEMBEREIi-PILE)  )  ) 
(PICK-OBJECT-FROM-PILE 
(OR.* 
(CLOSE-EYES 

FIND-COLOR-OF-PIECE 

FORGET-COLOR-OF-PIECE 

PIECE-HAS-CURRENT-COLOR 

PIECE-FITS-IN-PUZZLE 

FORGET -CURRENT-PILE 

DESTROY-A-PILE 

LOOK-AT-NEXT-IN-PILE 

REMEHBER-CURRENT-PILE 

FORGET-REMEMBERED-PILE 

REMEMBER-CURRENT-OBJECT ) 
(CLOSE-EYES 

FIND-COLOR-OF-PIECE 

FORGET-COLOR-OF-PIECE 

PIECE-HAS-CURRENT-COLOR 

PIECE-FITS-IN-PUZZLE 

F0R6ET-CURRENT-PILE 

DESTROY-A-PILE 

REMEMBER-CURRENT-PILE 

FORGET-REMEMBERED-PILE 

REMEMBER-CURRENT-OBJECT) ) ) 
(FIT-PIECE-IN-PUZZLE 
( OR .  * 
(CLOSE-EYES 

OBJECT- IN-HAND- I N-y I EU 

FIND-COLOR-OF-PIECE 

FORGET-COLOR-OF-PIECE 

PIECE-HAS-CURRENT-COLOR 

PIECE-FITS-IN-PUZZLE 

PUT-OBJECT-IN-PILE 

FORGET-CURRENT-PILE 

DESTROY-A-PILE 

LOOK-AT-FIRST-IN-PILE 

REMEMBER-CURRENT-PILE 

FORGET-REMEMBERED-PILE 
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REMEMBER-CURRENT-OBJECT ) 

(CLOSE-EYES 
OBJECT-IN-HANri-IN-VIEW 
FIND-COLOR-OF-F'IECE 
FORGET-COLOR-OF-F-IECE 
PIECE-HAS-CURRENT-COLOR 
PIECE-FITS-IN-PUZZLF 
PUr-OBJECT-IN-PILE 
FORGE T-CURREN7 -PILE 
PILE-IS-EHPTY 
BESTROY-A-PILE 
REMEMBER-CURRENT-PILE 
FORGET-REMEMBEREIi-PILE 
REMEHBER-CURRENT-OBJECT ) ) ) 
(PIECE-PUT- I N-PUZZLE 

( OR .  * 

(CLOSE-EYES 
OBJECT- IN-HAND- I N-VIEU 
FIND-COLOR-OF-PIECE 
FORGET -COLOR-OF-P I ECE 
PIECE-HAS-CURRENT-COLOR 
PIECE-FITS-IN-PUZZLE 
Fn-PIECE-IN-F'UZZLE 
PUT-OBJECT-IN-PILE 
FORGET-CURRENT-PILE 
BESTROY-A-PILE 
LOOK-AT-FIRST-IN-PILE 
REMEMBER-CURRENT-PILE 
FORGET-REMEHBEREB-PILE 
REHEMBER-CURRENT-OBJECT) 

(CLOSE-EYES 
OBJECT- IN-HAND- IN-VIEW 
FIND-COLOR-OF-PIECE 
FORGET-COLOR-OF-PIECE 
PIECE-HAS-CURRENT-COLOR 
PIECE-FITS-IN-PUZZLE 
FIT-PIECE-IN-PUZZLE 
PUT-OBJECT-IN-PILE 
FORGET-CURRENT-PILE 
PILE-IS-EMPTY 
DESTROY-A-PILE 
REHEHBER-CURRENT-PILE 
FORGET-REHEHBERED-PILE 
REMEMBER-CURRENT-OBJECT) ) ) 


D 
(FORGET-CURRENT-PILE 

(PILE-IS-EHPTY 

DESTROY-A-PILE 

REMEMBER-CURRENT-PILE 

PUZZLE-IS-FINISHED 

FORGET-REMEMBERED-PILE ) ) 
CREPEAT     (WHILE   ( PICK-A-PILE  FORGET-REMEMBERED-PILE ) ) 
(UNTIL   (THERE-ARE-NO-PILES> ) 


(PICK-A-PILE 

(PUZZLE-IS-FINISHED 
FORGET-REMEMBERED-PILE ) ) 
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<riESTROY-A-FILE 

(FUZZLE-IS-FINISHED 
FORGET-CURRENT-FILE 
F-ILE--IS-EMFTY 
REMEMBER-CURRENT-FILE 
FORGET-REHEMFEREn-PILE) ) 

3 
(RUZZLE-IS-FINISHED 

(THERE-ARE-NO-RILES) ) 
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AFPENHIX  3 


FOURTH  PUZZLE  EXPERIMENT 

"?*«#  UT  LISP  -  VER  4.1  (78/04/10). 
(»**  PROSYS  SUPSYSTEh  1.1  (79/04/15)) 
(*»»  CRAPS  CONTROL  ***  ) 

(*»»  EXPERIMENT  4  SPACE  SHIP  PUZZLE  ***) 


INITIAL  UORMNG  MEMORY 
(NUMBER-OF-PIECLS  24) 
(NUhBEK-IN-HLAP  24) 
(NUMEiER-OF-PILES  0) 
(IN-PUZZLE  NOTHING) 
(CURRENT-COLOR  NOTHING) 
(HOLDING  NOTHING) 
(L00MN6-AT  NOTHING) 
(CURRENT -PILE  NONE) 
(REMEMBERED-PILE  NONE) 
(REMEMBERED-OHJECT  NONE) 
(ALL-PILES) 

(IN-HEAP  (PIECE  22  RED ) 
(IN-HEAP  (PIECE  23  BLACK)) 
< IN-HEAP  (PIECE  12  BLACK)) 
(IN-HEAP  (PIECE  13  BLACK)) 
(IN-HEAP  (PIECE  14  BLACK)) 
(IN-HEAP  (PIECE  15  BLACK)) 
(IN-HEAP  (PIECE  24  RED) ) 
(IN-HEAP  (PIECE  25  BLACK)) 
(IN-HEAP  (PIECE  32  BLACK)) 
(IN-HEAP  (PIECE  33  RED)) 

(IN-HEAP  (PIECE  34  SILVER)) 
(IN-HEAP  (PIECE  35  SILVER)) 
(IN-HEAP  (PIECE  42  BLACK)) 
(IN-HEAP  (PIECE  43  BLACK)) 
(IN-HEAP  (PIECE  44  SILVER)) 
(IN-HEAP  (PIECE  45  BLACK)) 
(IN-HEAP  (PIECE  52  BROWN)) 
(IN-HEAP  (PIECE  53  BROWN)) 
(IN-HEAP  (PIECE  55  BLACK)) 
(IN-HEAP  (PIECE  62  BROWN)) 
(IN-HEAP  (PIECE  63  BROUN)) 
(IN-HEAP  (PIECE  64  BROWN)) 
(IN-HEAP  (PIECE  54  BROWN)) 
(IN-HEAP  (PIECE  65  BLACK)) 
(L  22  0  RED) 
(L  23  29  BLACK) 
(T  23  30  BLACK) 
(R  23  -36  BLACK) 
(B  23  -40  BLACK) 
(L  12  0  BLACK) 
(T  12  0  BLACK) 
<R  12  23  BLACK) 
(R  13  -24  BLACK) 
(B  13  -30  BLACK) 
(L  14  24  BLACK) 


(T 

14 

0  BLACK) 

(R 

14 

31  BLACK) 

(R 

15 

0  BLACK) 

(P 

15 

38  BLACK) 

(L 

24 

36  RED) 

<T 

24 

42  BLACK) 

(R 

24 

-44  BLACK) 

<L 

65 

108  BROUN) 

(T 

65 

104  BLACK) 

(t 

24 

46  RED) 

(L 

25 

44  BLACK) 

(T 

25 

-38  BLACK) 

<R 

25 

0  BLACK) 

<B 

25 

47  BLACK) 

(L 

32 

0  BLACK) 

<T 

32 

-35  BLACK) 

(R 

32 

52  BLACK) 

(B 

32 

-53  BLACK) 

(L 

33 

-52  BLACK) 

<T 

33 

40  RED) 

(R 

33 

54  RED) 

(B 

33 

-55  BLACK) 

(L 

34 

-54  RED> 

(1 

34 

-46  BLACK) 

(R 

34 

56  SILVER) 

(B 

34 

-57  SILVER) 

(L 

35 

-56  SILVER) 

(T 

35 

-47  SILVER) 

<R 

35 

0  BLACK) 

<B 

35 

60  SILVER) 

(L 

42 

0  L-BLACK) 

<T 

42 

53  BLACK) 

(R 

42 

-68  BLACK) 

(T 

44 

57  SILVER) 

(L 

64 

107  BROWN) 

<T 

64 

-103  BROWN) 

(R 

44 

76  SILVER) 

(if 

44 

-77  SILVER) 

<L 

45 

-76  BLACK) 

(T 

45 

-60  BLACK) 

<R 

45 

0  BLACK) 

(B 

45 

82  BLACK) 

(L 

52 

0  BROWN) 

(T 

52 

-69  BLACK) 

(R 

52 

-86  BROUN) 

(El 

52 

101  BROUN) 

<L 

53 

86  BROUN) 

(T 

53 

74  YELLOW) 

<Ei 

12 

-27  BLACK) 

(L 

13 

-23  BLACK) 

(T 

13 

0  BLACK) 

(R 

53 

87  BROUN) 

(B 

53 

-102  BROWN) 

<L 

55 

88  BLACK) 

(T 

55 

82  BLACK) 

(R 

55 

0  BLACK) 

(B 

42 

69  BLACK) 

(L 

43 

68  BLACK) 

(T 

43 

55  BLACK) 

(R 

43 

-62  SILVER) 
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(B 

43 

-64  BLACK) 

(L 

44 

72  SILVER) 

(B 

55 

-104  BLACK) 

(T 

22 

27  BLACK) 

<R 

22 

-29  RED) 

(Ei 

'T>r> 

35  RED) 

(L 

62 

0  BROWN) 

<T 

62 

-101  BROWN) 

(R 

62 

106  BROUN) 

(B 

62 

0  BROUN) 

<L 

63 

-106  BROUN) 

(T 

63 

102  BROWN) 

(R 

63 

-107  BROUN) 

(B 

63 

0  BROUN) 

(R 

64 

-108  BROUN) 

(B 

64 

0  BROUN) 

<B 

14 

-42  BLACK) 

(L 

15 

-31  BLACK) 

(T 

15 

0  BLACK) 

(L 

54 

-87  BROUN) 

<T 

54 

77  SILVER) 

(R 

54 

-88  BROUN) 

(B 

54 

103  BROUN) 

<R 

65 

0  BLACK) 

(B 

65 

0  BLACK) 

-    154    - 


«*♦    BEGIN    RUN    **# 

1.  LOOK-AT-PIECE-IN-HEAF' 

2.  FICK-UP-OEiJECT-IN-UIEU 

3.  MAKE-A-F'ILE 

4.  LOOK-AT-FIECE-IN-HEAP 

5.  PICK-UP-OBJECT-IN-VIEU 

6.  PUT-OHJECT-IN-PILE 

7.  LOOK-AT-PIECE-IN-HEAP 

8.  PICK-UP-OBJECT-IN-VIEW 

9.  PUT-OPJECT-IN-PILE 

10.  LOOK-AT-PIECE-IN-HEAP 

11.  PICK-UP-OBJECT-IN-yiEU 

12.  PUT-OBJECT-IN-PILE 

13.  LOOK-AT-PIECE-IN-HEAP 

14.  PICK-UP-OBJECT-IN-VIEU 

15.  PUT-OEUECT-IN-PILE 

16.  LOOK-AT-PIECE-IN-HEAP 

17.  PICK-UP-OBJECT- IN-VIEW 

18.  PUT-OBJECT-IN-PILE 

19.  LOOK-AT-PIECE-IN-HEAP 

20.  PICK-UP-OPJECT-IN-UIEW 

21.  PUT-OEiJECT-IN-PILE 

22.  LOOK-AT-PIECE-IN-HEAP 

23.  PICK-UP-OBJECT-IN-VIEU 

24.  PUT-OBJECT-IN-PILE 

25.  LOOK-AT-PIECE-IN-HEAP 

26.  PICK-UP-OBJECT-IN-VIEU 

27.  PUT-OBJECT-IN-PILE 

28.  LOOK-AT-PIECE-IN-HEAP 

29.  PICK-UP-OBJECT-IN-yiEW 

30.  PUT-OBJECT-IN-PILE 

31.  LOOK-AT-PIECE-IN-HEAP 

32.  PICK-UP-OBJECT-IN-VIEU 

33.  PUT-OBJECT-IN-PILE 

34.  LOOK-AT-PIECE-IN-HEAP 

35.  PICK-UP-OBJECT-IN-VIEU 

36.  PUT-OBJECT-IN-PILE 

37.  LOOK-AT-PIECE-IN-HEAP 

38.  PICK-UP-OBJECT-IN-VIEW 

39.  PUT-OBJECT-IN-PILE 

40.  LOOK-AT-PIECE-IN-HEAP 

41.  PICK-UP-OBJECT-IN-VIEW 

42.  PUT-OBJECT-IN-PILE 

43.  LOOK-AT-PIECE-IN-HEAP 

44.  PICK-UP-OBJECT-IN-VIEU 

45.  PUT-OBJECT-IN-PILE 

46.  LOOK-AT-PIECE-IN-HEAP 

47.  PICK-UP-OBJECT-IN-VIEU 

48.  PUT-OBJECT-IN-PILE 

49.  LOOK-AT-PIECE-IN-HEAP 

50.  PICK-UP-OBJECT-IN-VIEU 

51.  PUT-OBJECT-IN-PILE 

52.  LOOK-AT-PIECE-IN-HEAP 
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53.  FICK-UP-OBJECT-IN-VIEU 

54.  PUT-OBJECT-IN-FILE 

55.  LOOK-AT-PIECE-IN-HEAP 

56.  PICK-UP-OKJECT-IN-VIEW 

57.  PUT-OBJECT-IN-PILE 

58.  LOOK-AT-PIECE-IN-HEAP 

59.  PICK-UP-OBJECT-IN-UIEU 

60.  PUT-OBJECT-IN-PILE 

61.  LOOK-AT-PIECE-IN-HEAP 

62.  PICK-UP-OBJECT-IN-VIEW 

63.  PUT-OHJECT-IN-PILE 

64.  LOOK-AT-PIECE-IN-HEAP 

65.  PICK-UP-OBJECT-IN-VIEU 

66.  PUT-OBJECT-IN-PILE 

67.  L0OK-A1-PIECE-IN-HEAP 
6B.  PICK-UP-OBJECT-IN-VIEW 

69.  PUT-OBJECT-IN-PILE 

70.  LOOK-AT-PIECE-IN-HEAP 

WORKING  MEMORY 
( (NUMBER-OF-PIECES  24) 

(NUMBER-IN-HEAP  1) 

(NUMBEK'-OF-PILES  1) 

<IN-PUZZLE  NOTHING) 

(CURRENT-COLOR  NOTHING) 

(HOLDING  NOTHING) 

(LOOKING-AT  (PIECE  22  RED)) 

(CURRENT-PILE  1) 

(REMEMBERED-PILE  NONE) 

(REMEMBERED-OBJECT  NONE) 

(ALL-PILES  1) 

<IN-HEAP  (PIECE  22  RED)) 

(PILE  1 

(PIECE  65  BLACK) 
(PIECE  54  BROUN) 
(PIECE  64  BROWN) 
(PIECE  63  BROWN) 
(PIECE  62  BROUN) 
(PIECE  55  BLACK) 
(PIECE  53  BROUN) 
(PIECE  52  BROUN) 
(PIECE  45  BLACK) 
(PIECE  44  SILVER) 
(PIECE  43  BLACK) 
(PIECE  42  BLACK) 
(PIECE  35  SILVER) 
(PIECE  34  SILVER) 
(PIECE  33  RED) 
(PIECE  32  BLACK) 
(PIECE  25  BLACK) 
(PIECE  24  RED) 
(PIECE  15  BLACK) 
(PIECE  14  BLACK) 
(PIECE  13  BLACK) 
(PIECE  12  BLACK) 
(PIECE  23  BLACK)  )  ) 

71.  PICK-UP-OBJECT-IN-VIEU 

72.  PUT-OBJECT-IN-PILE 
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73.  EMFTY-HEAF- 

74.  REHEMPER-CURRENT-FILE 

75.  LOOK-AT-FIRST-IN-PILE 

76.  REMEHBER-CURRENT-OEiJECT 

77.  LOOK-AT-NEXT-IN-FILE 


*«META-RULES-CALLEIi** 

UNIT 
(F'lCK-OHJECT-FROM-PILE 
(CLOSE-EYES  F IND-COLOR-OF-FIECE  ...)) 

WANT  ACTIVE 
PIECE-HAS-STRAIGHT-EUGE 

WANT  INACTIVE 
PICK -OBJECT -FROM-F' I LE 

CURRENTLY  ACTIVE 
PICK-OBJFCT-FROM-PILE 
LCJOK-AT-NEXT-IN-PILE 
REMEhBER-CURRENT-OBJECT 
FIND-COLOR-OF-PIECE 
CLOSE-EYES 
DESTROY-A-PILE 
FORGET-REMEMBERED-OBJECT 
REHEHBEREB-PILE-IS-CURRENT 
REhEHBER-CURRENT-PILE 
FORGET-REMEMBERED-PILE 
FORGET-CURRENT-PILE 

TRY  LIST 
PICK-OBJECT-FROH-PILE 
LOOK-AT-NEXT-IN-PILE 
LOOK-AT-NEXT-IN-PILE 
PICK-OBJECT-FROH-PILE 
LOOK-AT-NLXT-IN-PILE 


78.  LOOK-AT-NEXT-IN-PILE 

79.  PICK-OBJECT-FROM-PILE 

80.  FORGET-CURRENT-PILE 

WORKING  MEMORY 
( <NUMBER-OF-PIECES  24) 
<NUMBER-OF-PILES  1) 
<IN-PUZZLE  NOTHING) 
(CURRENT-COLOR  NOTHING) 
(HOLBING  (PIECE  64  BROWN)) 
(LOOKING-AT  (PIECE  64  BROWN)) 
(CURRENT-PILE  NONE) 
(REMEMBEREB-PILE  1) 

(REMEMBEREB-OBJECT  (PIECE  65  BLACK)) 
(ALL-PILES  1) 
(PILE  1 

(PIECE  63  BROWN) 
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(FIECE  62  BROWN) 
(PIECE  55  BLACK) 
(PIECE  53  BROWN) 
(PIECE  52  BROWN) 
(PIECE  45  BLACK) 
(PIECE  44  SILVER) 
(PIECE  43  BLACK) 
(PIECE  42  BLACK) 
(PIECE  35  SILVER) 
(PIECE  34  SILVER) 
(PIECE  33  RED) 
(PIECE  32  BLACK) 
(PIECE  25  BLACK) 
(PIECE  24  RED) 
(PIECE  15  BLACK) 
(PIECE  14  BLACK) 
(PIECE  13  BLACK) 
(PIECE  12  BLACK) 
(PIECE  23  BLACK) 
(PIECE  22  RED) 
(PIECE  65  BLACK) 
(PIECE  54  BROUN) )  ) 

81.  HAKE-A-PILE 

82.  FORGET-CURRENT-PILE 

83.  PICK-A-PILE 

84.  LOOK-AT-FIRST-IN-PILE 

85.  PICK-OBJECT-FROH-PILE 

86.  FORGET-CURRENT-PILE 

87.  PICK-A-PILE 

88.  PUT-OBJECT-IN-PILE 
8V.  FORGET-CURRENT-PILE 

90.  PICK-A-PILE 

91.  LOOK-AT-FIRST-IN-PILE 

92.  PICK-OBJECT-FROH-PILE 

93.  FORGET-CURRENT-PILE 

94.  PICK-A-PILE 

95.  PUT-OBJECT-IN-PILE 

96.  FORGET-CURRENT-PILE 

97.  PICK-A-PILE 

98.  LOOK-AT-FIRST-IN-PILE 

99.  PICK-OBJECT-FROM-PILE 

100.  FORGET-CURRENT-PILE 

101.  PICK-A-PILE 

102.  PUT-OBJECT-IN-PILE 

103.  FORGET-CURRENT-PILE 

104.  PICK-A-PILE 

105.  LOOK-AT-FIRST-IN-PILE 

106.  LOOK-AT-NEXT-IN-PILE 

107.  PICK-OBJECT-FROM-PILE 

108.  FORGET-CURRENT-PILE 

109.  PICK-A-PILE 

110.  PUT-OBJECT-IN-PILE 

111.  FORGET-CURRENT-PILE 

112.  PICK-A-PILE 

113.  LOOK-AT-FIRST-IN-PILE 

114.  PICK-OBJECT-FROM-PILE 

115.  FORGET-CURRENT-PILE 
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116.  F-ICK-A-F'ILE 

117.  PUT-OBJECT-IN-FILE 

118.  FORGET-CURRENT-FILE 

119.  F'ICK-A-PILE 

120.  LOOK-AT-FIRST-IN-F-ILE 

121.  LOOK-AT-NEXT-IN-FILE 

122.  LOOK-AT-NEXT-IN-FILE 

123.  F'ICK-OBJECT-FROH-FILE 

124.  FORCET-CURRENT-FILE 

125.  F'ICK-A-FILE 

126.  PUT-OBJECT-IN-FILE 

127.  FORGET-CURRENT-PILE 

128.  PICK-A-PILE 

129.  LOOK-AT-FIRST-IN-PILE 

130.  PICK-OtJECT-FROM-PILE 

131.  FORGET-CURRENT-PILE 

132.  PICK-A-PILE 

133.  PUT-Ol(JECT-IN-PILE 

134.  FORGET-CURRENT-PILE 

135.  PICK-A-PILE 

136.  LOOK-AT-FIRST-IN-PILE 

137.  LOOK-AT-NEXT-IN-PILE 

138.  LOOK-AT-NEXT-IN-PILE 

139.  PICK-OBJECT-FROM-PILE 

140.  FORGET-CURRENT-PILE 

141.  PICK-A-PILE 

142.  PUT-OBJECT-IN-PILE 

143.  FORGET-CURRENT-PILE 

144.  PICK-A-PILE 

145.  LOOK-AT-FIRST-IN-PILE 

146.  PICK-OBJECT-FROM-PILE 

147.  FORGET-CURRENT-PILE 

148.  PICK-A-PILE 

149.  PUT-OBJECT-IN-PILE 

150.  FORGET-CURRENT-PILE 

151.  PICK-A-PILE 

152.  LOOK-AT-FIRST-IN-PILE 

153.  LOOK-AT-NEXT-IN-PILE 

154.  PICK-OBJECT-FROM-PILE 

155.  FORGET-CURRENT-PILE 

156.  PICK-A-PILE 

157.  PUT-OBJECT-IN-PILE 

158.  FORGET-CURRENT-PILE 

159.  PICK-A-PILE 

160.  LOOK-AT-FIRST-IN-PILE 

161.  PICK-OBJECT-FROM-PILE 

162.  FORGET-CURRENT-PILE 

163.  PICK-A-PILE 

164.  PUT-OBJECT-IN-PILE 

165.  FORGET-CURRENT-PILE 

166.  PICK-A-PILE 

167.  LOOK-AT-FIRST-IN-PILE 

168.  PICK-OBJECT-FROM-PILE 

169.  FORGET-CURRENT-PILE 
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170.  F'ICK-A-F-ILE 

171.  FUT-OBJECT-IN-FTLE 

172.  FORGET-CURRENT-FILE 

173.  FICK-A-FILE 

174.  LOOK-AT-FIRST-IN-FILE 

175.  F-ICK-OEiJECT-FROH-F'ILE 

176.  FORGET-CURRENT-FILE 

177.  F'ICK-A-FILE 

178.  FUT-OBJECT-IN-PILE 

179.  FORGET-CURRENT-FILE 

180.  F'lCK-A-PILE 

181.  LOOK-AT-FIRST-IN-PILE 

182.  LOOK-AT-NEXT-IN-F-ILE 

183.  PICK-OBJECT-FROH-FILE 
134.  FORGET-CURRENT-PILE 

185.  PICK-A-PILE 

186.  PUT-OBJECT-IN-PILE 

187.  FORGET-CURRENT-PILE 

188.  PICK-A-PILE 

189.  LOOK-AT-FIRST-IN-PILE 

190.  PICK-OBJECT-FROM-PILE 

191.  FORGET-CURRENT-PILE 

192.  PICK-A-PILE 

193.  PUT-OBJECT-IN-PILE 

194.  FORGET-REMEHBEREIi-OBJECT 

195.  LOOK-AT-FIRST-IN-PILE 

196.  PICK-OBJECT-FROM-PILE 

197.  START-PUZZLE 

198.  LOOK-AT-FIRST-IN-PILE 

199.  PICK-OBJECT-FROH-PILE 

200.  FIT-PIECE-IN-PUZZLE 

WORKING  MEMORY 
< (NUMBER-OF-PIECES  24) 
(NUMBER-OF-PILES  2) 
(IN-PUZZLE  (PIECE  64  BROUN)) 
(CURRENT-COLOR  NOTHING) 
(HOLDING  (PIECE  63  BROUN)) 
(LOOKING-AT  (PIECE  63  BROUN)) 
(CURRENT-PILE  2) 
(REMEMBERED-PILE  1) 
(REMEMBEREIi-OBJECT  NONE) 


(ALL-PILES  2 

1) 

(PILE 

1 

(PIECE 

54 

BROUN) 

(PIECE 

53 

BROUN) 

(PIECE 

44 

SILVER) 

(PIECE 

43 

BLACK) 

(PIECE 

34 

SILVER) 

(PIECE 

33 

RED) 

(PIECE 

24 

RED) 

(PIECE 

23 

BLACK)) 

(PILE 

2 

(PIECE 

62 

BROUN) 

(PIECE 

55 

BLACK) 

(PIECE 

52 

BROUN) 

(PIECE 

45 

BLACK) 
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(PIECE  42  BLACK) 

(PIECE  35  SILVER) 

(PIECE  32  BLACK) 

(PIECE  25  BLACK) 

(PIECE  15  BLACK) 

(PIECE  14  BLACK) 

(PIECE  13  BLACK) 

(PIECE  12  BLACK) 

(PIECE  22  RED) 

(PIECE  65  BLACK) ) 
(NUMBER-IN-PUZZLE  1) 

(JOINELi  ((L  64  107  BROWN)  (R  63  -107  BROUN))) 
(BEING-PUT-IN-PUZZLE  (PIECE  63  BROWN))) 

201.  PIECE-PUT-IN-PUZZLE 

202.  LOOK-AT-FIRST-IN-PILE 

203.  PICK-OBJECT-FROM-PILE 

204.  FIT-PIECE-IN-PUZZLE 

205.  PIECE-PUT-IN-PUZZLE 

206.  LOOK-AT-FIRST-IN-PILE 

207.  LOOK-AT-NEXT-IN-PILE 

208.  PICK-OBJECT-FROM-PILE 

209.  FIT-PIECE-IN-PUZZLE 

210.  PIECE-FUT-IN-PUZZLE 

211.  LOOK-AT-FIRST-IN-PILE 

212.  LOOK-AT-NEXT-IN-PILE 

213.  PICK-OBJECT-FROM-PILE 

214.  FIT-PIECE-IN-PUZZLE 

215.  PIECE-PUT-IN-PUZZLE 

216.  LOOK-AT-FIRST-IN-PILE 

217.  LOOK-AT-NEXT-IN-PILE 
21£3.  PICK-OBJECT-FROM-PILE 

219.  FIT-PIECE-IN-PUZZLE 

220.  PIECE-PUT-IN-PUZZLE 

221.  LOOK-AT-FIRST-IN-PILE 

222.  LOOK-AT-NEXT-IN-PILE 

223.  LOOK-AT-NEXT-IN-PILE 

224.  LOOK-AT-NEXT-IN-PILE 

225.  LOOK-AT-NEXT-IN-PILE 

226.  LOOK-AT-NEXT-IN-PILE 

227.  PICK-OBJECT-FROM-PILE 

228.  FIT-PIECE-IN-PUZZLE 

229.  PIECE-PUT-IN-PUZZLE 

230.  LOOK-AT-FIRST-IN-PILE 

231.  PICK-OBJECT-FROM-PILE 

232.  FIT-PIECE-IN-PUZZLE 

233.  PIECE-PUT-IN-PUZZLE 

234.  LOOK-AT-FIRST-IN-PILE 

235.  PICK-OBJECT-FROM-PILE 

236.  FIT-PIECE-IN-PUZZLE 

237.  PIECE-PUT-IN-PUZZLE 

238.  LOOK-AT-FIRST-IN-PILE 

239.  LOOK-AT-NEXT-IN-PILE 

240.  LOOK-AT-NEXT-IN-PILE 

241.  LOOK-AT-NEXT-IN-PILE 

242.  LOOK-AT-NEXT-IN-PILE 
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243.  LOOK-AT-NEXT-IN-PILE 

244.  LOOK-AT-NEXT-IN-FILE 

245.  FICK-OBJECT-FROM-FILE 

246.  FIT-F'IECE-IN-FUZZLE 

247.  F'lECE-FUT-IN-FUZZLE 

248.  LOOK-AT-FIRST-IN-FILE 

249.  LOOK-AT-NEXT-IN-F'ILE 


250. 
251  . 
252. 
253. 
254. 
255. 
256, 
257. 
258. 
259, 


LOOK-AT-NEXT-IN-FILE 

LOOK-AT-NEXT-IN-FILE 

LOOK-AT-NEXT-IN-FILE 

LOOK-AT-NEXT-IN-FILE 

FICK-OBJECT-FROM-F'ILE 

FIT-FIECE-IN-FUZZLE 

FIECE-F'UT-IN-F'UZZLE 

LOOK-AT-FIRST-IN-F-ILE 

LOOK-AT-NEXT-IN-PILE 

LOOK-AT-NEXT-IN-PILE 


260.  LOOK-AT-NEXT-IN-PILE 

261.  LOOK-AT-NEXT-IN-PILE 

262.  PICK-OBJECT-FROH-PILE 

263.  FIT-PIECE-IN-PUZZLE 

264.  PIECE-PUT-IN-PUZZLE 

265.  LOOK-AT-FIRST-IN-PILE 

266.  LOOK-AT-NEXT-IN-PILE 

267.  LOOK-AT-NEXT-IN-PILE 

268.  LOOK-AT-NEXT-IN-PILE 

269.  PICK-OBJECT-FROH-PILE 

270.  FIT-PIECE-IN-PUZZLE 

271.  PIECE-PUT-IN-PUZZLE 

272.  LOOK-AT-FIRST-IN-PILE 

273.  LOOK-AT-NEXT-IN-PILE 

274.  LOOK-AT-NEXT-IN-PILE 

275.  PICK-OBJECT-FROH-PILE 

276.  FIT-PIECE-IN-PUZZLE 

277.  PIECE-PUT-IN-PUZZLE 

278.  LOOK-AT-FIRST-IN-PILE 

279.  LOOK-AT-NEXT-IN-PILE 

280.  PICK-OBJECT-FROM-PILE 

281.  FIT-PIECE-IN-PUZZLE 

282.  PIECE-PUT-IN-PUZZLE 

283.  LOOK-AT-FIRST-IN-PILE 

284.  PICK-OBJECT-FROH-PILE 

285.  FIT-PIECE-IN-PUZZLE 

286.  PIECE-PUT-IN-PUZZLE 

287.  FORGET-CURRENT-PILE 

288.  PICK-A-PILE 

289.  LOOK-AT-FIRST-IN-PILE 

290.  REMEMBER-CURRENT-OBJECT 

WORKING  MEMORY 
( (NUMtER-OF-PIECES  24) 
<NUMBER-OF-PILES  2) 
(IN-PUZZLE  (PIECE  64  BROWN)) 
(IN-PUZZLE  (PIECE  63  BROWN)) 
(IN-PUZZLE  (PIECE  62  BROWN)) 
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<IN-PUZZLE  (PIECE  52  BROWN)) 

(IN-PUZZLE  (PIECE  42  PLACK >  ) 

(IN-PUZZLE  (PIECE  32  BLACK)) 

(IN-PUZZLE  (PIECE  22  RED)) 

(IN-PUZZLE  (PIECE  65  BLACK)) 

(IN-PUZZLE  (PIECE  55  BLACK)) 

(IN-PUZZLE  (PIECE  12  BLACK)) 

(IN-PUZZLE  (PIECE  13  BLACK)) 

(IN-PUZZLE  (PIECE  14  BLACK)) 

(IN-PUZZLE  (PIECE  15  BLACK)) 

(IN-PUZZLE  (PIECE  25  BLACK)) 

(IN-PUZZLE  (PIECE  35  SILVER)) 

(IN-PUZZLE  (PIECE  45  BLACK)) 

(CURRENT-COLOR  NOTHING) 

(HOLIUNG  NOTHING) 

(LOOKING-AT  (PIECE  54  BROUN)) 

(CURRENT-PILE  1) 

(REHEHBERED-PILE  1) 

(REMEMBERED-OBJECT  (PIECE  54  BROWN)) 

(ALL-PILES  1  2) 

(PILE  1 

(PIECE  54  BROWN) 
(PIECE  53  BROWN) 
(PIECE  44  SILVER) 
(PIECE  43  BLACK) 
(PIECE  34  SILVER) 
(PIECE  33  RED) 
(PIECE  24  RED) 
(PIECE  23  BLACK)) 

(PILE  2) 

(NUhBER-lN-PUZZLE  16) 

(JOINED  ((L  64  107  BROWN)  (R  63  -107  BROWN)) 
((L  63  -106  BROWN)  (R  62  106  BROWN)) 
((T  62  -101  BROWN)  (B  52  101  BROWN)) 
((T  52  -69  BLACK)  (B  42  69  BLACK)) 
((T  42  53  BLACK)  (B  32  -53  BLACK)) 
((T  32  -35  BLACK)  (B  22  35  RED)) 
((R  64  -108  BROWN)  (L  65  108  BROWN)) 
((T  65  104  BLACK)  (B  55  -104  BLACK)) 
((T  22  27  BLACK)  (B  12  -27  BLACK)) 
((R  12  23  BLACK)  (L  13  -23  BLACK)) 
((R  13  -24  BLACK)  (L  14  24  BLACK)) 
((R  14  31  BLACK)  (L  15  -31  BLACK)) 
((B  15  38  BLACK)  (T  25  -38  BLACK)) 
((B  25  47  BLACK)  (T  35  -47  SILVER)) 
((B  35  60  SILVER)  (T  45  -60  BLACK)))) 

291.  FIND-COLOR-OF-PIECE 

292.  LOOK-AT-NEXT-IN-PILE 

293.  PICK-OBJECT-FROH-PILE 

294.  FORGET-CURRENT-PILE 

295.  PICK-A-PILE 

296.  PUT-OBJECT-IN-PILE 

297.  FORGET-CURRENT-PILE 

298.  PICK-A-PILE 

299.  LOOK-AT-FIRST-IN-PILE 

300.  LOOK-AT-NEXT-IN-PILE 

301.  LOOK-AT-NEXT-IN-PILE 

302.  LOOK-AT-NEXT-IN-PILE 

303.  LOOK-AT-NEXT-IN-PILE 
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304. 
305. 
306. 
307. 
308. 
309. 


LOOK-AT-NEXT-IN-FILE 

LOOK-AT-NEXT-IN-F'ILE 

FORGET-REHEMBEREri-OHUECT 

FICK-OPJECT-FROM-PILE 

FORGET- CURRENT-F' I LE 

FICK-A-F'ILE 


310.  PUT-OPJECT-IN-FILE 

311.  LOOK-AT-FIRST-IN-FILE 

312.  PICK-OPJECT-FROM-FILE 

313.  FIT-PIECE-IN-PUZZLE 

314.  PIECE-PUT-IN-PUZZLE 

315.  LOOK-AT-FIRST-IN-PILE 

316.  PICK-OtJECT-FROM-PILE 

317.  FIl-PIECE-IN-PUZZLE 

318.  PIECE-PUT-IN-PUZZLE 

319.  FORGET-CURRENT-PILE 

320.  PICK-A-PILE 

321.  LOOK-AT-FIRST-IN-PILE 

322.  REMEhBER-CURRENT-OBJECT 

323.  FIND-COLOR-OF-PIECE 

324.  LOOK-AT-NEXT-IN-PILE 

325.  LOOK-AT-NEXT-IN-PILE 

326.  PICK-OBJECT-FROH-PILE 

327.  FORGET-CURRENT-PILE 

328.  PICK-A-PILE 

329.  PUT-OBJECT-IN-PILE 

330.  FORGET-CURRENT-PILE 

331.  PICK-A-PILE 

332.  LOOK-AT-FIRST-IN-PILE 

333.  LOOK-AT-NEXT-IN-PILE 

334.  LOOK-AT-NEXT-IN-PILE 

335.  LOOK-AT-NEXT-IN-PILE 

336.  FDRGET-REMEMFEREIi-OBJECT 

337.  PICK-OBJECT-FROM-PILE 

338.  FORGET-CURRENT-PILE 

339.  PICK-A-PILE 

340.  PUT-OPJECT-IN-PILE 


UORKINC 

!  hEMOR"! 

((NUMBER-OF- 

•PIECES 

24) 

1 

(NUMBER-OF- 

■PILES  2) 

<IN-PUZZLE 

(PIECE 

64 

BROUN) ) 

<IN-PUZZLE 

(PIECE 

63 

BROUN) ) 

(IN-PUZZLE 

(PIECE 

62 

BROUN)  ) 

<IN-PUZZLE 

(PIECE 

52 

BROUN) ) 

(IN-PUZZLE 

(PIECE 

42 

BLACK)  ) 

(IN-PUZZLE 

(PIECE 

32 

BLACK) ) 

(IN-PUZZLE 

(PIECE 

22 

REID  ) 

(IN-PUZZLE 

(PIECE 

65 

BLACK) ) 

(IN-PUZZLE 

(PIECE 

55 

BLACK) ) 

(IN-PUZZLE 

(PIECE 

12 

BLACK)  ) 

(IN-PUZZLE 

(PIECE 

13 

BLACK) ) 

(IN-PUZZLE 

(PIECE 

14 

BLACK)  ) 

(IN-PUZZLE 

(PIECE 

15 

BLACK) ) 

(IN-PUZZLE 

(PIECE 

25 

BLACK)  ) 

(IN-PUZZLE 

(PIECE 

35 

SILVER) ) 
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(IN-F-UZZLE  <FIECE  45  FLACK)) 

<IN-PUZZLE  (PIECE  53  BROWN)) 

(IN-F-UZZLE  (FIECE  54  BROWN)) 

(CURRENT-COLOR  SILVER) 

(HOLDING  NOTHING) 

(LOOKING-AT  (PIECE  44  SILVER)) 

(CURRENT-PILE  2) 

(REMEMBERED-PILE  1) 

(REHEMHERED- OBJECT  NONE) 

(ALL-PILES  2  1) 

(PILE  1  (PIECE  43  BLACK)  (PIECE  33  RED) 
(PIECE  24  RED)  (PIECE  23  BLACK)) 

(PILE  2  (PIECE  34  SILVER)  (PIECE  44  SILVER)) 

(NUhBER-IN-PUZZLE  18) 

(JOINED  ((L  64  107  BROWN)  (R  63  -107  BROUN)) 
((L  63  -106  BROWN)  (R  62  106  BROUN)) 
((T  62  -101  BROWN)  (B  52  101  BROWN)) 
((T  52  -69  BLACK)  (B  42  69  BLACK)) 
((T  42  53  BLACK)  (B  32  -53  BLACK)) 
((T  32  -35  BLACK)  (B  22  35  RED)) 
((R  64  -108  BROUN)  (L  65  108  BROUN)) 
((T  65  104  BLACK)  (B  55  -104  BLACK)) 
((T  22  27  BLACK)  (B  12  -27  BLACK)) 
((R  12  23  BLACK)  (L  13  -23  BLACK)) 
((R  13  -24  BLACK)  (L  14  24  BLACK)) 
((R  14  31  BLACK)  (L  15  -31  BLACK)) 
((B  15  38  BLACK)  (T  25  -38  BLACK)) 
((B  25  47  BLACK)  (T  35  -47  SILVER)) 
((B  35  60  SILVER)  (T  45  -60  BLACK)) 
((R  52  -86  BROUN)  (L  53  86  BROUN)) 
((T  63  102  BROUN)  (B  53  -102  BROWN)) 
((R  53  87  BROUN)  (L  54  -87  BROUN)) 
((T  64  -103  BROWN)  (B  54  103  BROWN)) 
((L  55  88  BLACK)  (R  54  -88  BROUN)))) 

341.  LOOK-AT-FIRST-IN-PILE 

342.  PICK-OBJECT-FROM-PILE 

343.  FIT-PIECE-IN-PUZZLE 

344.  PIECE~PUT-IN-PUZZLE 

345.  LOOK-AT-FIRST-IN-PILE 

346.  PICK-OBJECT-FROM-PILE 

347.  FIT-PIECE-IN-PUZZLE 

348.  PIECE-PUT-IN-PUZZLE 

349.  F0R6ET-CURRENT-PILE 

350.  PICK-A-PILE 

351.  LOOK-AT-FIRST-IN-PILE 

352.  REHEMBER-CURRENT-OBJECT 

353.  FIND-COLOR-OF-PIECE 

354.  LOOK-AT-NEXT-IN-PILE 

355.  LOOK-AT-NEXT-IN-PILE 

356.  LOOK-AT-NEXT-IN-PILE 

357.  PICK-OBJECT-FROM-PILE 

358.  FORGET-CURRENT-PILE 

359.  PICK-A-PILE 

360.  PUT-OBJECT-IN-PILE 

361.  FORGET-CURRENT-PILE 

362.  PICK-A-PILE 

363.  LOOK-AT-FIRST-IN-PILE 

364.  FORGET-REMEMBERED-OBJECT 
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365.  F-ICK-OBJECT-FROM-PILE 

366.  FORGET-CURRENT-FILE 

367.  F'ICK-A-FILE 

368.  FUT-OEUECT-IN-FILE 

369.  LOOK-AT-FIRST-IN-F'ILE 

370.  FICK-OEiJECT-FROM-FILE 

371.  FIT-FIECE-IN-FUZZLE 

372.  F'lECE-F-UT-IN-F-UZZLE 

373.  LOOK-AT-riRST-IN-FILE 

374.  FICK-OKJECT-FROH-FILE 

375.  FIT-FIECE-IN-FUZZLE 

376.  F'lECE-PUT-IN-PUZZLE 

377.  FORGET-CURRENT-FILE 

378.  F-ICK-A-PILE 

379.  LOOK-AT-FIRST-IN-PILE 

380.  REMEMPER-CURRENT-OBJECT 

381.  FIND-COLOR-OF-PIECE 

382.  LOOK-AT-NEXT-IN-PILE 

383.  PICK-OBJECT-FROM-PILE 

384.  FORfiET-CURRENT-PILE 

385.  PICK-A-PILE 

386.  PU1-0BJECT-IN-PILE 
337.  FORGET-CURRENT-PILE 

388.  PICK-A-PILE 

389.  LOOK-AT-FIRST-IN-PILE 

390.  FORGET-REHEMBERED-OBJECT 

391.  PICK-OBJECT-FROM-PILE 

392.  FORGET-CURRENT-PILE 

393.  PICK-A-PILE 

394.  PUT-OBJECT-IN-PILE 

395.  LOOK-AT-FIRST-IN-PILE 

396.  PICK-OBJECT-FROH-PILE 

397.  FIT-PIECE-IN-PUZZLE 

398.  PIECE-PUT-IN-PUZZLE 

399.  LOOK-AT-FIRST-IN-PILE 

400.  PICK-OBJECT-FROM-PILE 

401.  FIT-PIECE-IN-PUZZLE 

WORKING  MEMORY 
((NUMBER-OF-PIECES  24) 
(NUMBER-OF-PILES  2) 
(IN-PUZZLE  (PIECE  64  BROUN)) 
<IN-PUZZLE  (PIECE  63  BROWN)) 
(IN-PUZZLE  (PIECE  62  BROWN)) 
(IN-PUZZLE  (PIECE  52  BROWN)) 
(IN-PUZZLE  (PIECE  42  BLACK)) 
(IN-PUZZLE  (PIECE  32  BLACK)) 
(IN-PUZZLE  (PIECE  22  REID) 
(IN-PUZZLE  (PIECE  65  BLACK)) 
(IN-PUZZLE  (PIECE  55  BLACK)) 
(IN-PUZZLE  (PIECE  12  BLACK)) 
(IN-PUZZLE  (PIECE  13  BLACK)) 
(IN-PUZZLE  (PIECE  14  BLACK)) 
(IN-PUZZLE  (PIECE  15  BLACK)) 
(IN-PUZZLE  (PIECE  25  BLACK)) 
(IN-PUZZLE  (PIECE  35  SILVER)) 
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(IN-PUZZLE  (PIECE  45  BLACK)) 

(IN-F-UZZLE  (PIECE  53  BROUN)) 

(IN-PUZZLE  (PIECE  54  BROWN)) 

(IN-PUZZLE  (PIECE  34  SILVER)) 

(IN-PUZZLE  (PIECE  44  SILVER)) 

(IN-PUZZLE  (PIECE  23  BLACK)) 

(IN-PUZZLE  (PIECE  43  BLACK)) 

(IN-PUZZLE  (PIECE  24  RED) 

(CUF<RENT-COLOR  REIO 

(HOLDING  (PIECE  33  RED)) 

(LOOKING-AT  (PIECE  33  RED)) 

(CURRENT-PILE  2) 

(REMEMBERED-PILE  1) 

(REMEMBERED-OBJECT  NONE) 

(ALL-PILES  2  1) 

(PILE  1) 

(PILE  2) 

(NUMBER-IN-PUZZLE  23) 

(JOINED  ((L  64  107  BROUN)  (R  63  -107  BROUN)) 
((L  63  -106  BROUN)  (R  62  106  BROWN)) 
((T  62  -101  BROWN)  (B  52  101  BROUN)) 
((T  52  -69  BLACK)  (B  42  69  BLACK)) 
((T  42  53  BLACK)  (B  32  -53  BLACK)) 
((T  32  -35  BLACK)  (B  22  35  RED)) 
((R  64  -108  BROUN)  (L  65  108  BROUN)) 
((T  65  104  BLACK)  (B  55  -104  BLACK)) 
((T  22  27  BLACK)  (B  12  -27  BLACK)) 
((R  12  23  BLACK)  (L  13  -23  BLACK)) 
((R  13  -24  BLACK)  (L  14  24  BLACK)) 
((R  14  31  BLACK)  (L  15  -31  BLACK)) 
((B  15  38  BLACK)  (T  25  -38  BLACK)) 
((B  25  47  BLACK)  (T  35  -47  SILVER)) 
((B  35  60  SILVER)  (T  45  -60  BLACK)) 
((R  52  -86  BROWN)  (L  53  86  BROUN)) 
((T  63  102  BROUN)  (B  53  -102  BROUN)) 
((R  53  87  BROWN)  (L  54  -87  BROUN)) 
((T  64  -103  BROUN)  (B  54  103  BROWN)) 
((L  55  88  BLACK)  (R  54  -88  BROUN)) 
((L  35  -56  SILVER)  (R  34  56  SILVER)) 
((B  34  -57  SILVER)  (T  44  57  SILVER)) 
((T  54  77  SILVER)  (B  44  -77  SILVER)) 
((L  45  -76  BLACK)  (R  44  76  SILVER)) 
((B  13  -30  BLACK)  (T  23  30  BLACK)) 
((R  22  -29  RED)  (L  23  29  BLACK)) 
((R  42  -68  BLACK)  (L  43  68  BLACK)) 
((B  14  -42  BLACK)  (T  24  42  BLACK)) 
((R  23  -36  BLACK)  (L  24  36  RED)) 
((T  34  -46  BLACK)  (B  24  46  RED)) 
((L  25  44  BLACK)  (R  24  -44  BLACK)))) 

402.  PIECE-PUT-IN-PUZZLE 

403.  FORGET-CURRENT-PILE 

404.  PICK-A-PILE 

405.  DESTROY-A-PILE 

406.  PICK-A-PILE 

407.  DESTROY-A-PILE 

408.  PUZZLE-IS-FINISHED 

(END  —  EXPLICIT  HALT) 
(1  --  META  RULE  CALLS) 
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33  F'ROnUCTIONS  IN  SYSTEM 

127/300  NODES 

408  PRODUCTIONS-FIftED 

3642  F'ROnUCTIONS-INSTANTIATED 

1831  UM-TRANSACTI0NS<68762  NOUE  ACTIVATIONS) 

(68035  TESTS  PERFORMEID 

(131  MAXIMUM  UM  SIZE) 

(101.62990  MEAN  WM  SIZE) 

(33  MAXIMUM  CS  SIZE) 

(12.96324  MEAN  CS  SIZE) 

(177  MAXIMUM  NUMBER  TOKENS  STORED) 

(117.18382  MEAN  NUMBER  TOKENS  STORED) 

11.5  MINUTES  CPU 
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